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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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FACILITY: USER CALLABLE PROCEDURES 
ABSTRACT: 

THIS SET OF ROUTINES PROVIDES THE CAPABILITY OF ‘‘OPENING'’ AND 
READING FILES BY FILE NAME FROM A FILES11_ STRUCTURE LEVEL 2 VOLUME. 
THERE IS NO MULTI-VOLUME SUPPORT, AND MULTI-HEADER SUPPORT IS LIMITED 
TO RETURNING THE CORRECT FILE SIZE IN THE STATBLK. 


ENVIRONMENT: USER MODE 
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AUTHOR: PETER H. LIPMAN , CREATION DATE: 14-DEC-76 
MODIFIED BY: 
VO3-010 WHM0006 Bill Matthews 21-Feb-1984 
Removed all unneeded weak references. 
v03-009 unaeds Bill Matthews 21-Feb-1984 


ange sense of test for elements in search List from 
i h greater than zero to address not equal zero. 
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V03-008 WHMC004 Bill Matthews 16-F eb-1984 
Continuation of changes of edit WHMO003. 
v03-007 WHM0003 Bill Matthews 15-Feb-1984 


Put new read/write storage declared in edit WHMOO i onto the 
stack because there is no nice read/write psect for this data. 
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V03-006 wHM0002 Bil Betthows 13-Feb-1984 

Bug fix to edit WHMO001. 
V03-005 wWHM0001 Bill Matthews 17-Jan-1984 

Added support for a common system directory root. 
V03-004 LJK0254 Lawrence J. Kenah 6-Dec-1983 

Change LIBSCVT_DTB to FILSCVT_DTB. 
v03-003 RSHO0S2 R. Scott Hanna 22-Aug-1983 

d an optional input parameter that allows the caller to 


modify the way the file open is performed. The caller 
can specify that the cache is not to be used and/or that 
the directory is not rooted. 


V03-002 KDM0041 Kathleen D. Morse 14-Apr-1983 
Remove the ODS-1 structure level support. 
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78 .SBTTL DECLARATIONS | 
9 : INCLUDE FILES: | 
§ .nocross 
SDIRDEF :DIRECTORY ENTRY OFFSET DEFINITIONS 
4 SFATDEF SRECORD ATTRIBUTE AREA DEFINITIONS 
5 SENGDEE SFILE HEADER DEFINITIONS, LEVEL 2 
: SFMODEF : MAP AREA, LEVEL 2 
$F 1DDEE [FILE ID OFFSET DEFINITIONS 
8 SHM2DEF ‘HOME BLOCK DEFINITIONS, LEVEL 2 
9 SIODEF $1/0 DEFINITIONS 
0 SPSLDEF [PROCESSOR STATUS LONG WORD DEFINITIONS 
31 SSSDEF SSYSTEM SERVICE DEFINITION 
$8 : MACROS: 
95 -MACRO READVBN CHAN, VBN,BUFADR,HDRADR 
3 “LIST MEB 
9 PUSHAL HDRADR 
98 PUSHAL BUFADR 
99 PUSHL VBN 
100 PUSHL CHAN 
101 CALLS #4,W*FILSREADVBN 
198 .NLIST MEB 
103 “ENDM  READVBN 
105 .MACRO READLBN CHAN, VBN,BUFADR 
106 "LIST  MEB 
10 ROTL #9,#1,-(SP) 
108 MOVZ2WL #10$_READLBLK,-(SP) 
109 PUSHAL BUFADR 
110 PUSHL VBN 
111 PUSHL CHAN 
Ne CALLS #5,W*FILSRDWRTLBN 
11 .NLIST MEB 
114 “ENDM READLBN 
132 cross 
i ; EQUATED SYMBOLS: 
119 ° 
120 FH2$W_VBNOFFSET = FH2$W_CHECKSUM ;SAVE INDEX FILE VBN OFFSET 
121 :IN THIS PLACE IN INDEX FILE HEADER 
1 : ASSUME FH2$C_LEVELZ@-8 EQ 2 
1 FH2$V_LEVEL2 = 
124 FHOSV~BIGFILNUM = 10 :1f SET USE HIGH 8 BITS OF FILE ID RVN 
125 [FIELD AS FILE NUMBER EXTENSION 
1 : ‘BIT IS PLACED IN FH2$W_STRUCLEV 
[BY THE FILSMOUNT CODE 
§ FILSC_CACHE_ID = 1 :VERSION OF THE FILEREAD CACHE 
? : OFFSETS INTO HEADER PORTION OF THE FILEREAD CACHE 
1 : SOFFSET 0,POSITIVE,<- 
134 <FILSW_CACHE_ID,2>.- :CACHE IDENT, AND WRITE INTERLOCK BIT 
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; -SBTTL FILSOPENFILE = RETURN FILE HEADER AND STATISTICS BLOCK 
; FUNCTIONAL DESCRIPTION: 
THE ‘Abiniitest Rout ime ACCEPTS A FULL FILE NAME IN THE FORMAT 


DEV: CD RIF E. TYP; VERSION. 
IT ASSIGNS AND RETU NS dé CHANNEL, READS THE FILE HEADER, RETURNS THE 
STATISTICS BLOCK, AND OPTIONALLY” RETURNS THE RETRIEVAL POINTERS I 
A NORMALIZED (LONG WORD COUNT, LONG WORD LBN) FORMAT. 
THE DIRECTORY A AY Y BF iN ANY OF THE STANDARD FORMATS: 
[10,40] 40], CABCDEFGHI ACING C AND J. 


; OR WITH < AND > R 
; VERSION MAY BE ERO IN WHICH CASE THE HIGHEST VERSION I 


; CALLING SEQUENCE: 
CALLG ARGLIST,FILSOPENF ILE 
INPUT PARAMETERS: 


EPL 
$s FOUND 


CHANADR (AP) = ADDRESS TO RETURN 
FILNAM(AP) = ADDRESS OF 2 LONG WORD” FILE NAME STRING DESCRIPTOR 
- SIZE OF STRING 
2 - ADDRESS OF STRING 
DB1:010,40JF ILTST.EXE 
IXFHOR CAP) = ADDRESS OF 512 BYTE BUFFER TO BE USED FOR 
THE bat FILE HE 
FILHDR(AP) a ADDRESS OF 512 BYTE BUFFER TO RETURN rite HEADER 
STATBLK (CAP) = ADDRESS OF 2 LONG WORD BLOCK IN WHICH THE 
FOLLOWING WILL BE RETURNED 
1 = LOGICAL BLOCK NUMBER OF FIRST BLOCK OF 
FILE OR O IF FILE IS NOT CONTIGUOUS 
2 = SIZE OF FILE IN BLOCKS 
RTRVPTRLEN(AP) = ADDRESS TO RETURN THE NUMBER 
BYTES OF RETRIEVAL POINTERS STORED 
THIS PARAMETER IS OPTIONAL. 4 IS NOT USED 
IF MISSING OR SPECIFIED AND Q. 
RTRVPTRBUF (AP) = ADDRESS OF RETRIEVAL POINTER BUFFER DESCRIPTOR. 
O0A THIS PARAMETER SHOULD BE SPECIFIED IF AND ONLY 
O0A IF RTRVPTRLEN IS PRESENT. 
O0A THE py POINTERS ARE RE TYAN IN 
O0A THE FORM BIT BLOCK COUNT, 32 BIT LBN 
OA A ZERO BUFFER DESCRIPTOR ADDRESS OR A 
0A ZERO BUFFER ADDRESS MEANS DON'T 
RETURN RETRI aaa POINTER INFO 
FLAGS (AP) = FLAGS LONGWO FOLLOWING BITS MODIFY 


THE 
THE WAY THE FILE OPEN IS PERFORMED. 
BIT 0 WHEN SET THE CACHE IS NOT USED. 


BIT 1 WHEN SET THE DIRECTORY IS NOT ASSUMED 
TO BE ROOTED. 


IMPLICIT INPUTS: 
NONE 
; OUTPUT PARAMETERS: 
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AD.MAR;1 (2) 
RO = SYSTEM STATUS CODE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
S$$_ NOR RMAL § CCESSFUL COM PLETION 
$$$ NOSUCHF ILE FAILED TO FIND DIRECTORY OR FILE 
$$$~ ~BADT ILENAME SYNTAX ERROR IN DIRECTORY OR FILE NAME STRING 
THE FOLLOWING COMPLETION CODES INDICATE FILE STRUCTURE PROBLEMS 
SS$_BADCHKSUM CKSUM ERROR IN HOME BLOCK, INDEX FILE HEADER 
CTORY FILE HEADER OR FILE HEADER 
S$S$_BADFILEHDR 


CHE 
DIR 
FILE HEADER CONSISTENCY CHECK FAILED F 
IND ILE, DIRECTORY FILE, OR DESIRED” FILE 
SS$_FILESTRUCT HOM S_VOLUM 
fon 


U 
A 
Y 
I 
H 
I 
I 
N 
: Ss 
R POSSIBLY THE HOMEBLOCK IS GARBAGE 
SIDE EFFECTS: 
NONE 

EQUATED SYMBOLS 

OFFSETS FROM AP 


TBLK 
RVPTRLEN 
RVPTRBUF 

FLAGS 


: ioe 
PTIONAL 
: OPTIONAL 


Wrnrn——@fO 
MOfoor 


SIZE OF DIRECTORY SEARCH LIST 


00000018 DIR_LIST_SIZE = 24 


OFFSETS FROM FP 
te 0,NEGATIVE,<- 


<LOCAL UA ny 4>,- 
<FILE an Desc, &>,- 
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END OF DIRECTORY SEARCH LIST 


THE FILE DESCRIPTION ON THE STACK LOOKS AS FOLLOWS: 
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DIRECTORY FILE 
NAME . TYPE; VERSION 
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A 3 <PREFIX DIR_LIST,DIR_LIST_SIZE>,-;RW STORAGE TO HOLD LIST OF DIRECTORIES 
O04 334 <SCRATC CASI Ret ds! :SIZE OF SCRATCH AREA 
FFFA FID: 
FFEA DIRNAM: 
FFEO NAMBLK : 
FFD4 NAMDSC: 
FFD LOCAL_FLAGS: 
FFC DIR_DESC: 
FFC FILE NAME_DESC: 
FFA PREFIX DIR LIST: 
FFAB . SCRATCASIZE: 
8 A 3 3 THE LIST OF DIRECTORIES TO BE SEARCHED LOOKS AS FOLLOWS 
DOA 599: PREFIX DIR_LIST: 
0 A 3 = Saree een a aa a wee ses ee eeceren = $ 
00A ; : PTR TO TOP LEVEL SYS NAME!\ 
O0A ° ; SVT ee wee we eS oS oO a SF eee S| Sw Se Se we SD ; , SEARCH FOR SYSN.XXXXXX 
00A ; _2ERO t/ 
OOA g $e eer wen ewe een wwotroer oan se ses + 
O0A : 1 PTR TO TOP LEVEL SYS NAME! \ 
aOh : : PTR TO SYSCOMMON NAME STR! 
0 A : toreaeeennnn= woeenennenne=--+ | SEARCH FOR SYSN.SYSCOMMON. XXXXXX 
$0 : + 
3 
0 3 


: NAMBLK 


:DIRNAM 


:FILIO 
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SE 00000058 8F 
DC AD AD 
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-ENABL LSB 
FILSOPENFILE:: 
»WORD “M<R2,R3,R4,R5,R6,R7,RB,R11> 
BSBW SSIGN_ DEV ASSIGN THE DEVICE 
+ RO,OPENFILE_2 BRANCH IF SUCCESSF 
FILSOPENFILE 1:: 
WOR “M<R2,R3,R4,R5,R6,R7,R8,R11> 
OPENFILE_ 2: 


SUBL #-SCRATCHSIZE,SP RESERVE SCRATCH STORAGE 


; IF CACHE DESCRIPTOR EXISTS AND IS IN SYSTEM SPACE, THEN WE 
; HAD BETTER BE IN KERNEL MODE TO USE THE CACHE. 


FUN OODNAULS WN OOONAUNE UO - OOONOUE 


SERRGRISCSNEC ECR S SSN R INS SRLERRUN AS SESE UE OO NONE 


- CE IN CALLER'S MODE 


MOVAL NAMBLK (FP) NAMDSC+8(FP) :SET ADDRESS OF N AME BLOCK 

CLRL. LOCAL Lags (FP) UME NO F LAGS AMETER 

MOVCS #0, (50) W) Om n LIST sizt,- 7 CLEAR DIRECTORY” SEARCH LIST BLOCK 
CMPL ARGCHTTAPS “#FLAGS/4 [1S THERE A FLAGS PARAMETER? 

BLSS 1$ IF NOT 

MOVL - FLAGS(AP),LOCAL ~FAGscFP -GET COPY OF FLAGS 

BLBS § LOCAL_FLAGS(FP).15$ BR IF WE ARE NOT TO USE THE CACHE 


1s: MOVAL FIL$GQ_CACHE,R11 :1S CACHE IN SYSTEM SPACE? 
BGTR 10$ SBRANCH IF DESCRIP TOR APRESENT 
[AND NOT IN SYSTEM 
BEQL 208 {BRANCH IF NO SESCRIPTOR PRESENT 
MOVPSL RO *G L 
EXTZV  #PSLSV_CURMOD,A#PSLS$S _CURMOD .RO,RO sFETCH CURRENT MODE 
BEQL ;BRANCH IF ALREADY IN KERNEL MODE 
SCHKRNL _S B*FILSOPENFILE_1,(AP) :CALL THIS PROCEDURE IN KERNEL MODE 
MPL ~RO,#SS$_NOPRIV [ASSUME NOPRIV MEANS WE COULDN'T 
[GET IN TO KERNEL 
BEQL 15$ 
10$ MOVL FILS$GQ_CACHE+4,R11 ;1S THE CACHE ENABLED? 

1 BEQL “BRANCH IF NOT 

3 CMP BAL SW. CACHE_ID(R11) ,#FIL$C_CACHE_ID ;CORRECT VERSION OF CACHE? 
BEQL : BRANCH TF ves 

4 15$: CLRL R11 DISABLE THE CACHE 

5 20$:  MOVAL FILSGT DDSTRING,R7 TADDRESS OF COUNTED STRING 

6 MOVZBL (R7)+,R6 :GET BYTE COUNT 
I [STEP OVER BRACKET 

go SUBL  #2,R6 [DON'T COUNT THe BRACKETS 

9; : GET FILE NAME STRING, AND STRIP DEVICE OFF IF PRESENT 

: MOVL EILWARCAP) .RO SADDRESS OF FILE NAME DESCRIPTOR 
BEQL i BRANCH IF NO NAME SPECIFIED 

4 MOVG (RO), R2 R2 = SIZE, R3 = ADDRESS 

5 LOCC = #*A/:/, R2, (R3) :DEVICE NAME PRESENT? 

6 BEQL SBRANCH IF NOT a 
MOVAB 1(R1),R3 TADDRESS BEYOND 
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FILEREAD - FILESI1 L 1984 00:10:07 VAX/VMS Macro v04-00 Page 1 
Hives FIL SER AFILE = RETURN FILE HEADER AND ST mie} 90:19:88 SYS.SRCJF ILEREAD.MAR; 1 . 3) 
31 MOVAB =(RO),R2 ;REMAINING SIZE 
34 : SEE IF DIRECTORY SPECIFIED IN THE FILE NAME STRING 
4 25$: CMPBOsW*A/L/, (R3) DIRECTORY DELIMITER? 
8 BEQL 30S ‘BRANCH IF YES 
63 9A CMPB Os W#*A/</, (R3) SALTERNATE CHARACT 
BNEQ = SBRANCH IF NO DIREC TORY beet § ons 
30$ ADDB3 #2, (R3) +, RO *SCAN FOR MATCHING 
DECL =o SADJUST SIZE AND ADR or’s 
LOCC RO, R2,(R3) [SCAN FOR CLOSE BRACKE 
BNEQ 35§ SBRANCH IF FOUND IT 
328 BRW BADF ILNAM 'BAD FILE NAME IF NO CLOSE BRACKET 
57 $ MOVL. R3,R TADDRESS OF DIRECTORY NAME 
S651 SUBL3 R3,R1,R [SIZE OF DIRECTORY NAME 
52 MOVAB =(RO).R :SIZE REMAINING SKIP CLOSE BRACKET 
53. 01 MOVAL 1(R1).R SADR OF REMAINING STRING BEYOND CLOSE BRACKE 


SET UP COMMON ARGUMENT LIST FOR MOUNT, FINDFILID, RDCHKFILHDR 
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H ARGUMENT COUNT i oo: AP 
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om 0$ CLRQ 2s = (SP) sASSUME NO RETRIEVAL POINTERS REQUESTED 
07 6€ D1 CMPL §ARGCNT(AP) ,ARTRVPTRBUF/4° ;RETRIEVAL POINTER PARAMETERS PRESENT? 
06 19 BLSS 45$ sBRANCH IF NO 
6€ 18 AC 7D 00C MOVQ  RTRVPTRLEN(AP), (SP) [PUT RTRV PTR PARAMS IN LIST 
FA AD oF ¢ 45$ PUSHAL FID(FP SADDRESS OF FIL 
7E 10 AC 7d 00C MOVQ  — FILHDR(AP),-(SP) [PUSH STATBLK ADR FILHD R «for 
OC AC DD 00C PUSHL IXFHDR(AP) i INDEX x FILE HEADER A 
p4 AD OF 00D PUSHAL NAMDSC(FP) G WORD wat SS ESCRIPTOR 
4 BC DD 00D PUSHL @CHANADR(AP) CHANNEL 10 USE LONG WORD FOR BOOTING 
6 OD D7 PUSHL #6 [PARAMETER COUNT 
D D9 TSTL. R11 [CACHE ENABLED? 
1 DB BEQL ©: 508 
OC AE 18 AB a D MOVAL fi SA_IXFHDR(R11),IXFHDR(SP) ;USE CACHED INDEX FILE HEADER 
0B E BRB 6 3 AND SkIP THE MOUNT 
O2p3'cF 6E& FA OOE 50$ CALLG (SP),W*FILSMOUNT s"MOUNT THE VOLUME'’ (READ HOME 
£9 SBLOCK, INDEX FILE HEADER, GET 
E9 SSTRUCTURE LEVEL OF VOLUME) 
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+ SET UP FOR THE DIRECTORY LOOK UP 


S Macro Vv04-00 P 11 
RCJFILEREAD MAR: 1 oF i 
RO gos ‘ ;BRANCH IF SUCCESS 
106 SELSE RETURN WITH ERROR STATUS 
R2,FILE_NAME_DESC(FP) ;SAVE A DESC OF THE FILENAME STRING 
Re DIR_DESC(FP) SSAVE THE DIRECTORY DESCRIPTOR 
PREFIX"DIR_LISTCFP) Rg :GET PTR TO PREFIX DIRECTORY SEARCH LIST 
#1 LOCAL FCAGS(FP),65$ :BR IF DIRECTORY ID NOT ROOTED 
Fat GT_TOPSYS, (RB) [GET PTR TO TOP LEVEL SYS NAME STRING 
(RB) ,BTRB) :SET TOP LEVEL SYS NAME IN SYSCOMMON LIST 
CMNSYS, 12(R8) [SET SYSCOMMON NAME ADDRESS IN SYSCOMMON LIS 
#FIDSC_MFD,FIDCFP) :MFD FILE NUMBER 
# 1D8C MFD,FID+2(FP) :MFD FILE SEQUENCE NO., RVN = 0 
(RB)+,R1 [GET PTR TO A DIRECTORY NAME STRING 
70$ TIF EQL NONE SPECIFIED 
(R1)+,RO :GET SIZE TO RO, ADR TO R1 
70$ ;BRANCH IF NONE SPECIFIED 
RO,R6 ‘TREAT TOPSYS OR CMNSYS LIKE DIR STRING 
FORMDIRSTRING [FORM THE DIRECTORY NAME 
DIR.DESC(FP) .R6 SRESTORE READ DIRECTORY DESCRIPTOR 
FORMDIRSTRING :GET NEXT DIRECTORY TO LOOKUP 
RO, NAMDSC (FP) ‘STORE DESCRIPTOR OF ITS NAME 
(SP) [REAL ADDRESS OF ARGUMENT LIST 
R11 [CACHE ADDRESS IF ANY 
#2 Wt ILSFINDFILID SFIND THE FILE ID 
‘ ‘BRANCH IF SUCCESS 
RO, #SS$_NOSUCHF ILE [COULDN'T FIND THE FILE? 
106$ [IF NEQ NO THEN RETURN ERROR STATUS 
(RB) + [POP OFF END OF DIR NAME STRING LIST MARKER 
100$ :1F NEQ THEN ERROR 
(RB) ‘NOW AT END OF LIST? 
100$ SIF EQL YES REPORT ERROR 
FILE _NAME_DESC (FP) .R2 SRESTORE THE FILE NAME STRING DESCRIPTOR 
65$ :TRY AGAIN USING COMMON SYS DIRECTORY 
NAMBLK (FP) SREINIT NAME BLOCK 
NAMBLK+8 (FP) 
(RB) yANY MORE PREFIX DIRECTORY NAMES? 
67$ SIF NEQ YES 
R6 SANY MORE DIRECTORY NAMES? 
70$ ‘BRANCH IF YES, LOOKUP THE NEXT 
R2,NAMDSC (FP) ‘DESCRIPTOR FOR FILE TO LOOKUP 
:STOP THE LOOKUP LOOP 
NAMDSC (FP) SALREADY DONE? 
[BRANCH IF NO, DO THE LAST ONE 
ARGCNT(AP) ,ARTRVPTRBUF/4 :RETRIEVAL POINTERS DESIRED? 
9 r ;BRANCH IF NOT 


#2, (SP) ADDITIONAL ARGUMENTS ARE PRESENT 
(SP) ,W*FILSRDCHKFILHDR READ AND CHECK FILE HEADER 
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FILEREAD - FILES11 LEVEL 2 FILE READING ROUTINES =SEP=1984 AX/VMS Macro V04-00 Pa 
v04-000 StaCHE INIT - INIT FILEREAD CACHE ~SEP=1984 t 93: 13: 8% SYS. SRCJFILEREAD.MAR; 1 - 
0 09 «SBTTL FILSCACHE_INIT = INIT FILEREAD CACHE 
+e : FUNCTIONAL DESCRIPTION: 
18 18 ; : CACHE_INIT PERFORMS THE INITIALIZATION FOR THE FILEREAD CACHE 
18 13 3 : CALLING SEQUENCE: 
0180 1? ; CALLG ARGLIST,FILSCACHE_INIT 
a 19 5 : INPUT PARAMETERS: 
61 8 $f CHANADR (AP) ADDRESS TO RETURN LONG WORD CHANNEL 
0180 5 : : F ILNAM(AP) ADDRESS OF DEVICE NAME ST RING DESCRIPTOR 
0180 523 : THE DEVICE NAME MUST CONTAIN THE "':'* 
180 524: F THE ADDRESS IS 0 THE rik NG IS” NULL. 
180 525 ; THE NAME DOES NOT CONTAIN A ‘':'"', 
180 ; 6: DEFAULT DEVICE NAME I seb 
0180 7: CACHE _SIZE (AP) IZE IN BYTES OF FILEREAD CACHE 
0180 528: CACHE ADR (AP) ADDRESS OF FILEREAD CACHE 
0180 529 ; DIR_CACHE_CNT(AP) NUMBER OF DIRECTORY CACHE ENTRIES 
0180 338 : LBN7 CACHE ~CNT (AP) NUMBER OF LBN CACHE ENTRIES 
O180 885 2 IMPLICIT INPUTS: 
0180 533 ; 
0180 534: NONE 
0180 535 : 
0180 536 : OUTPUT PARAMETERS: 
0180 537: 
0180 538; RO = ALWAYS SUCCESSFUL STATUS CODE 
9180 539 : 
9180 340 : IMPLICIT OUTPUTS: 
0180 248 : FIL$GQ_CACHE QUAD WORD FILLED IN WITH SIZE AND ADDRESS OF CACHE 
0180 544 COMPLETION CODES: 
0180 545: 
0180 246 ; SS$_NORMAL SUCCESSFUL COMPLETION 
0180 548 SIDE EFFECTS: 
0180 549: 
180 550: NONE 
18 551 : 
189 e : EQUATED SYMBOLS, OFFSETS FROM AP 
1 55 * CHANADR = 4 
1 36 FILNAM = 8 
1 5 CACHE_SIZE = 1 
1 38 CACHE ADR 2 1 
180 55 DIR_CACHE_CNT = g 
260 LBN“CACHE-CNT = 4 
1 6¢ : 
1 68 FILSCACHE_INIT:: 
o1 64 -QORD  “M<R2,R3,R4,R5,R10,R11> 
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MEE PIC ER EAD Cac ScSep-19be Hoiass00 eee eS tere ee oes - i 
LSBTTL FILSCACHE_TRUNC = TRUNCATE FILEREAD CACHE 


"FUNCTIONAL DESCRIPTION: 


F bereno 
v04-000 


ana 


or 


SDOOSSDSOODOCSCSCSOSOSOSOSOOSOSOSOOSOOOCODOOOOOCOOOOSDOOOOOOOOOOSOOOO ym 
oT 


~"s 

mo 

cn 
AAAAAAPAAAAAAAAAAAAAAAAAPAAAAOAAAAPAAAPAAAAAAAAAOOUM Ca 


CACHE _TRUNC_TRUNCATES Lae FILEREAD CACHE AND MAKES IT IMPOSSIBLE 
TO ADD MORE DIRECTORY CACHE OR DIRECTORY LBN ENTRIES TO IT. IN EFFECT 
THIS ROUTINE TURNS THE CACHES INTO A READ-ONLY DATA BASE. 


CALLING SEQUENCE: 

CALLG ARGLIST,FILSCACHE_TRUNC 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

FIL$GQ_CACHE DESCRIPTOR FOR THE CACHE 
OUTPUT PARAMETERS: 

RO = ALWAYS SUCCESSFUL STATUS CODE 
IMPLICIT OUTPUTS: 

FIL$GQ_CACHE FILLED IN WITH ALTERED SIZE OF CACHE 
COMPLETION CODES: 

SS$_NORMAL SUCCESSFUL COMPLETION 
SIDE EFFECTS: 

NONE 
EQUATED SYMBOLS 
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FILSCACHE TRUNC: 
RD 


RononnN—— es es es ss ss ws es es a a a a - as — 2s as 2s — an — ss a a a a a a a a tn ow 
D009 Fn nnn nro 
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0000 90 0 
50 00000004 'EF 00 MOVL  FIL$GQ_CACHE+4,RO :ADDRESS OF THE CACHE 
Oc AO 08 AO D MOVL  FILSL_BIRNXT(RO) .FILSL_DIRMAX(RO) ;NO NEW DIRECTORY CACHE ENTRIES 
14 A0 10 A0 00 MOVL FILSLZL LBNNXT (RQ) .FILSL LBNMAX(RO) :NO MORE LBN BUFFERS 
00000000'EF 10 AO D0 MOVE = -FILSL=L LBNNXT(R )FILS$GO_CACHE :SET NEW SIZE OF CACHE 
0 01 v0 ROVL S*#SS$_NORMAL ,RO 
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FILEREAD - FILES11 LEVEL 2 FILE READING ROUTINES 16-SEP-1984 00:10:07 VAX/VMS Macro V04-00 Page 15 
vor ASSIGN DEV © ASSIGN A DEVICE ANG RETURN ScSEPH]ORG Besasiog Lereveach eT eReao mars 1 ” 
our .SBTTL ASSIGN_DEV = ASSIGN A DEVICE AND RETURN A CHANNEL 
gis : FUNCTIONAL DESCRIPTION: | 
1 e31 ; ASSIGN THE GIVEN DEVICE AND RETURN A CHANNEL NUMBER 
! $26 ; FOR BOOTING THIS VALUE IS A LONG WORD 
} e2e : INPUTS: | 
1 66 ; FILNAM(AP) = ADDRESS OF STRING DESCRIPTOR | 
13 «657: IF DEVICE NAME IS PRESENT IT MUST HAVE "':"* 
8 ! $28 3 CHANADR (AP) = ADDRESS TO RETURN LONG WORD OF CHANNEL NUMBER | 
021 660 ; OUTPUTS: | 
021 661 ; 
021 66¢ ; RO,R1 ALTERED 
021 663 : R2 = SIZE OF DEVICE NAME STRING (DEFAULT IF NOT IN NAME STRING) 
021 664 ; MAYBE 0 IF DEFAULT DEVICE STRING WAS NOT PRESENT 
021 665 ;: THIS IS THE CASE WHEN BOOTSTRAPPING. 
021 666 : R3 = ADDRESS OF DEVICE NAME STRING 
8 ! roth 3 O IF DEFAULT DEVICE STRING WAS NOT PRESENT 
021 669 :-- 
021 670 
021 671 ASSIGN_DEV: 
50 04 021 676 CLRL = RO ; ASSUME NULL DEFAULT DEVICE STRING 
51 QO0000000'EF DE 0215 67 MOVAL FILSGT DDDEV,R1 :GET THE ADDRESS 
50 81 9A O21C 674 MOVZBL (R1)+,RO :SIZE OF DEFAULT DEVICE STRING 
03 88 O21F 675 10$: PUSHR eencrd, R1> PUSH DEF AUL T DEVICE DESCRIPTOR 
52. 7C 0221 676 CLRQ oR SASSUME NULL STRING DESCRI 
50 O08 AC DO 0223 677 MOVL  FILNAM(AP),RO S ADDRESS OF STRING DESCRIPTOR 
11 13 0227 678 BEQL [BRANCH IF NO NAME GIVEN 
52 60 7D 02 9 679 MOVO  (RO),R2 :R2 = SIZE, R3 = ADR OF FILE NAME STRING 
63 52 3A 3A O22C 680 LOCC = #*A/:/, R2, (R3) TANY DEVICE SPECIFIED? 
08 13 0 0 681 BEQL 208 [BRANCH IF NONE 
04 AE 53 OD 2 6 é MOVL »4(SP) TADDRESS OF DEVICE NAME 
6 51 53 ¢3 0 36 68 SUBL3 a3. Ri. (SP) [SIZE OF DEVICE NAME STRING 
50 SE DO O23A 684 208: TADDRESS OF DEV NAME DESCRIPTOR 
0 3p «685 SASSIGN.§ $7 (HO) -acHANADR (AP) TASSIGN THE CHANNEL 
0C BA 0248 686 POPR “#*M<R2.R3> SGET DEVICE NAME SIZE AND ADDRESS 
05 0240 687 RSB 
| 
| 
| 


16 
- AX/VMS Macro v04-00 ; Page ie, 
v venti STORESDIGITS ="sfoRe'$ ASCII Glel aunt nes "SSEp-19Be 08:42:00 EsvSvSRCIFILEREAD. AAR; 8 
RE3D : 
oa st se 689 SBTTL STORE3DIGITS - STORE 3 ASCII DIGITS 
CE 85}: FUNCTIONAL DESCRIPTION: 
ze 888 STORE 3 DIGITS OF DIRECTORY STRING 
if 635 : CALLING SEQUENCE: 
te 697 | BSBB «STORE 3DIGITS 
0 dE 639 : INPUT: oe 
: TS TO PUT IN 
aS Salt TS TET Ut 
0 tf 8¢ : R2 = ADDRESS AT WHICH TO STORE 
704 : 
0 : 708 : OUTPUTS: 
6 dE 509 : NONE 
054— 708 : 
BH 
Gece 711 er. ona :3 DIGITS OR LESS SPECIFIED? 
1b oes 8 + + Nes DIRECTORY STRING BAD. EXIT 
31 0553714 BRY = BAD :NO; DIRECTO = 
B52eF12 ss MOVy —#°A/00/, (R2)+ :BACKGROUND WITH A 
a a hl ESTART LOOP AT BOTTOM 
90 0966 O18 108: eve | <Gh1),@¢R2) :STORE BYTES LAST 10 oH 
pse3 fs Q R0,108 ‘LOOP ZERO OR MORE TIME 
co 8583 731 208: SOBGE ; 
05 0366 732 
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CTORY STRING Set tf 98: 19:8 SYS. SRCJFILEREAD MAR; 1 - (7 


| 
-SBTTL FORMDIRSTRING = GET A DIRECTORY STRING 


FILEREAD 
Vv - 


FILE R 
ET A DI 


ws 
oO 
ze 
ze 
or 
=n 
m> 


++ 

FUNCTIONAL DESCRIPTION: 

PULL THE FIRST DIRECTORY NAME OFF THE FRONT OF THE INPUT 
DIRECTORY STRING AND FORM THE FULL FILE NAME OF THE DIRECTORY 
TO LOOK UP. 

; CALLING SEQUENCE: 

BSBW FORMDIRSTRING 


: INPUTS: 


R = SIZE OF DIRECTORY STRING 
R7 = ADDRESS OF DIRECTORY STRING 

THE STRING CONTAINS NO BRACKETS 

IT MAY BE OF THE FORM "'DIR1.DIR2.CIR3...DIRN"’ 

THE FIRST AND ONLY ITEM MAY BE IN THE FORM GROUP,MEMBER 
DIRNAM(FP) = ADDRESS OF AREA TO BUILD THE NAME 


; OUTPUTS: 


CTORY STRING 
IRECTORY STRING 
P 


OINT AT THE REST OF THE STRING 
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§ FORMDIRSTRING: 
: LOCC #*A/./,R6,(R7) 
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2— «(3A IRECTORY STRING 
01 C3 SUBL3 #1, RO, R6 T, SKIP THE '’.’ 
57 C3 SUBL3. —-R7, R1,RO OF DIRECTORY NAME 
57 0 MOVL 7 : ADDRE DIRECTORY NAME 
A140 9E MOVAB 1(R1)CROJ,R7 SADDRE NEXT BYTE BEYOND ‘’."° 
07 +~BB PUSHR #*M<RO,R1.R2> [SAVE STRING DESCRIPTORS AND R2 
50 D1 MPL = RO, #9 SLENCTH OF DIRECTORY STRING OKAY? 
03 «15 : :YES. BRANCH. 
0225 31 76 BRW BADF ILNAM NO. EXIT WITH ERROR, 
C 3A 764 5$: LOCC =—._«s #*A/,,/,, RO, (R11) [GOOD STRING: ANY '',''? 
9 13 765 BEG 20$ [BRANCH IF NOT, RETURN THE DESCRIPTOR AS IS 
0 Dp 766 PUSH RO SAVE REMAINING BYTE COUNT 
C 767 SUBL3 RO,4(SP),RO [BYTE COUNT TO LEFT OF "',"’ 
AAD D 768 MOVAL DIRNAM(FP) R2 TADDRESS TO STORE FIRST $ CHARS 
BG 169 BSBB_ STORE SDIGITS STORE THEM tee 
eee. 770 SUBL3. #1, (SP)+,RO [COUNT OF CHARS TO RIGHT OF ", 
BE 8E& C1 029C 771 ADDL (SP) (SP) R1 tADR OF BYTE TO RIGHT OF LAST CHAR 
ED AD DE A 07 MOVAL DIRNAM+3(FPS,R2 SADR TO STORE LAST 3 CHARS OF DIR NAME 
As Aa O77 BSBB STORE 3D1GITS [STORE THEM 
04 BA 0206 77% POPR #*M<R2> SRESTORE SAVED R2 
50 : DO O2A8 775 MOVL  #6,RO $6 BYTES STRING SIZE 
A AD4O 9 026 10$:  MOVAB DIRNAM(FP)CROJ,R1 [POINT TO END OF STRING 
32494436 er D BO 77 MOVL #°A/ -DIR/ (R1)4 [PUT TYPE IN STRING 
31 4 B 178 MOVW #*A/:1/,(R1) SAND VERSION AS WELL 
EA A . 8 7 MOVAB DIRNAMCFP) .R1 ADDRESS OF STRING 
50 06 C CO = 780 ADDL 4#6,R [SIZE INCLUDES ‘*.DIR;:1 


it? 


EA AD 


10 BE 


38 


. 
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VEL 2 FILE READING R bin S$ 16-SEP=1 AX/VMS Macro V04-00 

G- ef A pikectoRy STRIN g- Sfp 1382 88: 13: 88 SYS SRC TF ILEREAD MAR: 1 
1 RSB 

g 2 20$:  PUSHR #*M<R3,R4,R5> ;SAVE THESE FROM MOVC3 

7 hi : 12(SP) = SIZE OF STRING, 16(SP) = ADDRESS 

f g ’ MOVES J2(SP) .a16(SP), ,DIRNAM(FP) :MOVE NAME TO SCRATCH AREA 

7 sRESTORE REGISTERS 

7 : BOPR #°M<RO_R1_R2> 

7 BRB 10$ 


fell 


——$———L Sse 


FILEREAD = FILES11 LEVEL 2 FILE READING ROUTINES 16-SEP=1986 00:10:07 VAX/VMS Macro 06-00 Page 19 
voe= MOUNT’ = MOUNT THE VOLUMES TAIT FOR TICE ‘'SxSEpatone QOSLO8, FANLES Macro. vOR-00 ww ih 


IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

RO = SYSTEM STATUS CODE 
IMPLICIT OUTPUTS: 


8 . «SBTTL MOUNT = MOUNT THE VOLUME, INIT FOR FILE LOOKUP 
43 FUNCTIONAL DESCRIPTION: 
79 ye PERFORMS THE pr eg ney Ae te FOR FILE LOOKU 
79 IT READS T 7 “ te ~ ie RETURNS THE INDEX FILE HEADER v6 THE 
79 SPECIFIED BU FFE E INDE FILE HEADER IS ALTERED BY RECORDING THE 
a VIRTUAL BLOCK Or Fset WREQUIRED TO TRANSLATE ‘FILE NUMBER’ TO INDEX FILE VBN 
CALLING SEQUENCE: 
CALLG ARGLIST,FILSMOUNT 
INPUT PARAMETERS: 
8 CHAN (AP) CHANNEL ON WHICH DEVICE IS ASSIGNED 
UNUSED 2ND PARAMETER NOT U 

60 IXFHDR CAP) ADDRESS TO RETURN INDEX FILE HEADER 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


NONE 
COMPLETION CODES: 
SS$_NORMAL SUCCESSFUL COMPLETION 
e5- ieee cous. FILE STR ye LEVEL NOT SUPPORTED 
SS$_BADCHKSUM CHECKSUM ERROR ON HOME BLOCK OR INDEX FILE HEADER 
SS$_ BADF ILEHOR INDEX FILE HEADER IS BAD 


SIDE EFFECTS: 
NONE 


e Be Se Se Se Se Se Se Se Ge Se Ge Se Ge Ge Ge Se Ge Se Ge Ge Ge Ge Se Se Sse Ge Se Se Se Ge Se Se Se Se Ge Se Se Sete Se Se Se 
+ 


; EQUATED SYMBOLS, OFFSETS FROM AP 


‘uileih- bbb b-bd AA A_A_A_A_A_A_ AA AAA AAA ALAA AA AAA) A111 A 1-1-1111 1-1 AAA 


SOOOOOOOOSOSSOOOOCOOOOOOOOOCOOOOOCOOOOOOOOOOO 


PIPOPIPINIPIPIPIPOPINIPINIPIPIPINPONPYNPININD 


0000004 CHAN = 4 
000000C IXFHOR : 12 
F ILSMOUNT: : 
o01¢ WORD R3,R4> 
OC ac MOVL IAFHDRCABD R3 ZADDRESS OF BUFFER 
7E° 01 «09':s—«é*O70L” 9 ROTL (SP ER OF BYTES TO READ 
ao eS MOVZWL #108 _READLBLK, (SP) TREAD LOGICAL BLOCK FUNCTION 
3 DD PUSHL R ‘BUFFER ADDRE 
01 sob PUSHL #1 [LOGICAL BLOCK NUMBER 1 IS HOME BLK 
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FILEREAD ~ FILES11 LEVEL 2 FILE READING ROUTINES 16-SEP-1984 00:10:07 VAX/VMS Macro V04-00 Pa 
yoke MOUNT = MOUNT +A VOLUME, INIT FOR FILE ae ioety 7 90:19:82 SYS.SRCJFILEREAD.MAR; 1 ~ 23) 
04 AC DD O2E 4 PUSHL CHAN(AP) ; CHANNEL 
0s DD ES 4 PUSHL #5 [NO. OF ARGUMENTS 
0000' CF FA 0269 CALLG ¢ " W*F ILSRDWRTLBN TREAD THE HOME BLOCK 
60 £9 EF BLBC}~=—_—s«a 0, 308 ;BRANCH IF ERROR 
1 0 OoF MOVL R TADDRESS OF HOME BLOCK 
0 1 F4 MOVZWL mines, CH CHECKSUM1@=1 RO [NO. OF WORDS IN FIRST CHECKSUM 
04g F754 BSBW at SCHECK THE FIRST CHECKSUM 
51 FA 855 MOVL R R sADR OF HOME BLOCK AGAIN 
4a FD 36 BSBW = F_AILSCHECK SUM [CHECK THE MAIN CHECKSUM 
02 ODA 0 85 CMPB uM $B_STRUCLEV(R3) #2 1S THIS STRUCTURE LEVEL 2? 
x © 4 38 BNEQ 40 ‘BR IF NOT STRUCTURE LEVEL 2 
60 : STRUCTURE LEVEL 2 
51 1B A v0 o 6¢ MOVL HM2SL_IBMAPLBN(R3),R1_ ; INDEX BIT MAP STARTING LBN 
50 20A A 86 MOVZWL HM2$W-IBMAPSIZE(R35,RO :INDEX BIT MAP SIZE IN BLOCKS 
54 #1C AS) «DO 030 64 MOVL HM2SLIMAXFILES(R3),R4 :MAXIMUM FILES ON VOL 
1 65 SONLY INTERESETED IN HIGH 16 BITS 
54 OF a3 04 AS 031 66 MULUS #4, HM2$W -CLUSTER(RS), R4 :4*CLUSTER TO LOW WORD OF R 
54 0E AS «(04S OAS (0381 6 MULW3 #4, HM2SW~CLUSTER(R3).R4 :4*CLUSTER TO LOW WORD OF Re 
54 50 ad O31C 868 ADDW = RO. RG ‘LOW WORD IS VBNOFFSET 
if 34 FROM FILE ID TO INDEX FILE VBN 
1F 871 : READ INDEX FILE HEADER 
1F rg ; RO = NUMBER OF BLOCKS IN IND EX FILE 
0 o ; Ri - STARTING LBN OF INDEX FILE 
OB AE 51 50 C1 Sait 75 ADCL3 RO, R1,8(SP) :DESIRED LBN TO ARG LIST 
0000'CF BE FB 0324 876 CALLS (SP)+.W*°FILSRDWRTLBN § :READ INDEX FILE HEADER 
03 9 877 :STRIP OFF THE ARGUMENT LIST 
25 50 9 9 878 BLBC RO. 308 [BRANCH IF ERROR 
51 DO O32c 879 MOVL R3,R1 SADDRESS OF HEADER 
E 04 F 880 CLRL 30s = ¢ §P) [FORM FILE ID ON STACK 
00010001 8F oD 1 81 PUSHL #*x10001 [FOR THE INDEX FILE HEADER 
50 SE 00 7 : MOVL  SP,R SADDRESS OF FILE I 
043F 30 O33A 88 BSBW FILSCHKFILHDR [CHECK THE FILE HEADER (SEE IF 
033D 884 [FILE IDS MATCH) 
V W_VBN : 
O1FE C3 54~—so«BO 3 5 MOVW R4,FH2$W_VBNOFFSET(R3) :STORE VBN OFFSET 
4 Hi : IF MAXFILES WAS GREATER THAN “XFFFF THEN HIGH 16 BITS 0 WILL BE 
4 8 > NON-ZERO. IN THIS CASE, RECORD THE BIGFILNUM BIT IN THE CTRUCTEY WORD 
54 54~«COFO af f 4 $0 ASHL #-16,R4,R4 :SEE IF HIGH 16 BITS = 0 
00 06 A3 8 E 49 % BBSS © #F H2$V_BIGFILNUM, FH2$W_STRUCLEV(R3) ,25$ MUST USE HIGH 8 BITS 
4E 89 N FIELD AS FILE NUMBER EXTENSION 
50 (01 3¢ 4F 94 358: MOVZUL #SS$_NORMAL ,RO : SUCCESSFUL COMPLETION 
50 O08CO 8F 5c 38 %6 40S: MOVZWL #SS$_FILESTRUCT,RO SUNSUPPORTED FILE STRUCTURE LEVEL 
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DF ID FOR SPECIFIED F 5=SEP=1 SYS.SRCJFILEREAD.MAR; 1 (9) 


ws 
as 
zu 
ou 
wr 
—rm 


~SBTTL FINDFILID = FIND FILE ID FOR SPECIFIED FILE 
FUNCTIONAL DESCRIPTION: 


imo tLe SCANS A SPECIFIED DIRECTORY FOR A FILE a 
evens ITS FILE ID IF FOUND. gy AL LEVEL 2 DIRECTORIES 


I 
9 
S ARE SUPPORTED, 0 VERSION NUMBER MEANS FIND MOST RECENT VERSION, 

a1 VERSION (FIND OLDEST? 18 NOT SUPPORTED. 

NOTE THAT NON-CONTIGUOUS DIRECTORIES ARE NOT SUPPORTED. 
CALLING SEQUENCE: 
CALLG ARGLIST,FILSFINDFILID 
14 : INPUT PARAMETERS: 
: CHAN(AP) ;CHANNEL ON_WHICH DEVICE IS ASSIGNED 
FILDSC(AP) : ADDRESS OF 3 LONG WORD FILE DESCRIPTOR 
1 


SIZE OF ASCII STRING, A_0 VALUE MEANS 
USE THE CONTENTS OF THE NAMBLK BELOW 
2_- ADDRESS OF ASCII STRING 
3 = ADDRESS OF = BLOCK = (OBSOLETE, Lever, 1 ONLY) 
Y CONTAIN DEFAULTS, BUT MUST BE 
AT LEAST INITIALIZED TO ZERO 


IT WILL BE WRITTEN. 
IXFHOR (AP) ADR OF jnpex FILE HOR . RETURNED FROM FIL gore 
DIRBUF (AP) ADR OF 512 BYTE BUFFER TO USE FOR a at SCAN 
STATBLK (AP) ADDRESS OF 2 LONG WORD AREA USED FOR A 
SCRATCH_STATISTICS BLOCK 
FILIDCAP) ADR OF 3 WORD AREA USED BOTH AS THE ID OF 


THE DIRECTORY TO SCAN AND AS THE PLACE TO 
RETURN THE ID OF THE FILE FOUND 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
RO = SYSTEM STATUS CODE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 


SS$_NORMA SUCCESSFUL COMPLETION 

SS$_ NOSUCHE ILE FILE NOT FOU 

SS$_BADF ILENAME SYNTAX ERROR IN FILE NAME 

SS$"BADCHKSUM CHECKSUM ERROR ON DIRECTORY FILE HEADER 
SS$~BADF ILEHOR DIRECTORY FILE HEADER WAS BAD 


; SIDE EFFECTS: 
NONE 


WWAWIWNIUA A. AAA AAA. AANA AA. A.A A.A AAA WAI AAAI AAA AAA AAA AA AAA AANA AAI 
VPP PVDV PVPS PUPUPVPVIVIVIUDUIULVIUIUSUSIUSUIUSUSV SUSI SUSUSUSESUSUSTSTSU SUISUN tt ed 
0.09.09 00 Cd Cd 0d Cd C0 09 09 09 09 09 GO Cd Cd OD G9 Gd Od Od OD Cd Ot Gd C0 Cd Cd Co Cd Cd Cd Cd Co GD Cd Cd Cd C9 GD CO CD CD CD.CD COCO OD ODOCDUDODODCDCNCD OU — 


SOOOOCOOOOOOCOOOOOOCO COCO COSOOCOOCOOCOCOCOOOCOOOOOOOCOOOOOOOOO 
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FILEREAD - FILES11 LEVEL 2 FILE READING ROUTINES 16-S AX/VMS Macro V04-00 Pa 
Fo FINDFILID = FIND FILE ID FOR SPECIFIED F $73 Pa} 98C 88: 13: 8% SYS.SRCJFALEREAD. MAR; 1 ot %) 
: ‘ ; EQUATED SYMBOLS, OFFSETS FROM AP 
0004 60 * CHAN . 4 
0090 08 3 2 FILDSC = g 
00 ¢ : IXFHDR 2 12 
000001 5896 DIRBUF = 16 
0000014 0358 964 STATBLK 2 30 
0000018 035 363 FILID = 4 
$67 | : OFFSETS FROM FP 
5 ae | SOFFSET 0,NEGATIVE,<- 
5 0 DIR_BFCNT.- :BUFFER COUNT REMAINING IN LBN CACHE 
358 0971 DIR~BUF ,- ‘NEXT BUFFER ADDRESS IN DIR LBN CACHE 
33 76 ENTRY _AOR,- ‘FOUND CACHE ENTRY A 
58 97 <ENTRY,FILS$C_DIR_SIZE>,- [CACHE ENTRY FOR SEARCH/CREATE 
0358 974 <SCRATCH,SIZE,0 = sSIZE OF SCRATCH AREA 
0358 975 
FFFC DIR _BFCNT: 
FFFS DIR~BUF : 
FFFG ENTRY ADR: 
FEDO ENTRY 
FFD SCRATCH. SIZE: 
0358 976 ; 
Bae 977 :-- 
0358 978 
0358 979 FILSFINDFILID:: 
OFFC 035 980 .WORD “M<R2,R3,R4,R5,R6,R7.R8, RY ,R10,R11> 
SE 30 «6c2 «(035A—(981 SUBL.  #-SCRATCH SIZE.SP ALLOCATE SCRATCH SPACE 
6 30 00 6€ 00 2¢ 035 98¢ MOVCS #0, (SP), #0,#-SCRATCH_ size, (SP) ;ZERO THE SCRATCH STORAGE 
5B 4 036 98 CLRL { sASSUME NO CACH 
02 6C 01 0365 984 CMPL  (AP),#2 :1F ONLY 2 ARGUMENTS 
08 if 68 985 BNEQ 5$ 
5B 404 AC OD 6A 986 MOVL  4(AP),R11 i THE FIRST IS THE CACHE ADDRESS 
Sc 608 AC COCO 6 987 MOVL 8(AP);AP THE SECOND IS THE REAL ARGUMENT LIST 
5B 42S «(0372 «=: 988 S$ TSTL = R11 SCACHE ENABLED? 
66 O13 0374 989 BEQL 65$ ‘BRANCH IF NOT 
§358 991 : WE DO HAVE A CACHE TO LOOK IN AND MAKE ENTRIES IN, SET UP THE 
0376 99 > SCRATCH REGION FOR A LOOKUP 
76 99% ASSUME ENTRY EQ SCRATCH SIZE sSCRATCH CACHE ENTRY MUST BE ON TOP 
76 995 ASSUME FILS$A_DIR_FID EQ ‘DIR ID IS AT FRONT OF CACHE ENTRY 
6— 18 BC 06 38 76 (99) VC3 #6, aFILIDTAP) , (SP) ‘STORE DIRECTORY ID 
50 08 : D 0378 99 MOVG aFI{LDSC(AP),RO GET LOOKUP NAME DESCRIPTOR 
06 D1 O37F 99 CMPL = RO, #6 MUST BE MORE THAN ''.DIR;1 
13 0382 99 BLEG =: 108 SBRANCH IF NOTA DIRECTORY NAME 
OF 50 01 1000 CMPL RO #15 [AT MOST 9 CHAR WITH '.DIR;1 
0 14 7 1001 SGTR. 10§ :BRANCH IF NOT A DIRECTORY NAME 
52 51 C1 9 1 é ADDL3 RO, R1,R2 [POINT OFF END OF NAME STRING 
7 138 BF 81 1 CMPW 320 #*A/;4/,-(R2) SLAST 2 BYTES "':1"° ? 
5 le 1004 BNEQ 108 BRANCH IF NOT A DIRECTORY NAME 
72 52469442E BF OD 94 1005 CMPL #*A/.DIR/,-(R2) [PRECEDED BY ''.DIR' ? 
C 1 9B 1 6 BNEG 108 :BRANCH IF NOT A DIRECTORY NAME 
50 06 C 9 1 SUBL  #6,RO ‘JUST KEEP THE NAME PART 
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your FINDFILID = FIND FILE ID FOR SPECIFIED F §-§ oats 1 88: 13: 8% SYS.SRCJFILEREAD.MAR; 1 e & 
A AO 1 MOVB_ RO,FILST_DIR NAM*ENTRY (FP) -PUT SIZE AND Mane STRING. 
7 AD 61 28 38 A? 1 03 MOVC Roe CAH) FIL$T DIR_NAMS1 36 +ENTRY(FP) ;IN ENT 
58 0 AB OC1:sCOO3A9 1 10$ ADDLS FILSL_DIROFF(R11)7R11,R 8 sADDRESS OF pine TORY ati 
8 AB f AE 101 ADDL EALSLIDIRNAT (RIT) RIT.R {ADDRESS 0 T+1 BYTE 
1€ «11 2 BRB 6 OOP 6 OR MORE’ TIMES 
BS 1014 ° ASSUME FIL$T_DI EQ FILSA DIR F1D+6 
68 DOAD 10 29 H 13 20S: CMPC3 aes i0cFtSA DIR, ID+EN NTRY(FP), = ;DOES FID AND NAME MATCH? 
96 3 BA 1 i$ BNEQ 3 ™% - ;BRANCH IF DIDN'T MATCH ALL OF IT 
F4 AD D 101 MOVL R8,ENTRY_ADR(FP) SRECORD THAT A MATCH WAS FOUND 
1€ 11 C 1 BRB 70$ 
¢ 1 FAILED TO MATCH THE ENTIRE ENTRY, DID WE MATCH THE DIR ID FIELD? 
OA 50 01 4 : $0s: CMPL = RO, #10 :1F 10 OR LESS CHAR'S LEFT 
09 14 03C5 1026 BGTR :THEN MATCHED THE DIR ID 
FL AD «58 p9 €? 1025 MOVL RB. NTRY_ADR(FP) 'SAVE THIS PARTIAL MATCH 
D6 AD 9 CB 1026 TSTB Fitst T_DIR_NAM+ENTRY(FP) :IF NOT SEARCHING FOR A DIR NAME 
10 13 O3CE 1027 BEQL 70S :THEN THIS ENTRY WILL DO FINE 
58 24 0 030 1028 50$: ADDL #FILSC_DIR_SIZE,R8 SADDRESS OF NEXT CACHE ENTRY 
59 58 61 0303 1029 60S: CMPL BRO SDONE SCANNING DIR CACHE? 
DD «OIF 0306 10 6 BLSSU 208 ‘BRANCH IF NOT, CHECK NEXT ENTRY 
038 1033 > ENTRY_ADR(FP) = ADDRESS oF CACHE HIT ENTRY 
0308 1033 : = 0 IF NO MATCH FOUN 
0308 1034 : IF WE DROP THROUGH To” HER — AND WE GOT A CACHE HIT, THEN IT WAS 
0308 1035 : NOT EXACTLY WHAT WE WERE LOOKING FOR. BUT IT DID MATCH THE DIRECTORY. 
58 F4 AD 09 03p8 1 $ ? MOVL  ENTRY_ADR(FP),R8 :WAS THERE A CACHE HIT? 
3E Oo 0 DC 1038 65$:  BEQL #$READ_DIR_HEADER ‘BRANCH 
OF (11 30E 39 BRB 80$ SYES, FOR DIRECTORY LBN AND SIZE 
EO 1941 : FOUND WHAT WE WERE LOOKING FOR - MAY ONLY NEED DIRECTORY LBN AND SIZE 
1€ ag 05 6 3 1948 70$: TsTL FILSA_DIR_OFID(R8) :DID WE GET A FILE 1D? 
18 BC 16 AB 06 @ O3E 1808 MOVC3 #6,FILSA_DIR 0F 10(R8) FL IDAPD “RETURN THE FILE ID 
50 01 3c O38 1 46 MOVZWL S*#SS$_NORMACR sSET SUCCESS STATUS 
04 38 47 72$: = RET SAND RETURN 
O3Er 1049 ; CACHE HIT ONLY FOUND THE DIRECTORY LBN AND SIZE, SAVING THE 
Er 20 + READ OF THE DIRECTORY FILE HEADER. 
EO AD 10 A8 7D O3EF 1 5 Bos: mova FIL$Q_DIR_HDR(R8) ,FILSQ_DIR_HDR+ENTRY(FP) ;SAVE DIRHDR 
Fe 1 sINFO FOR MAKING A NEW ENTRY 
F4 1054 :WITH THE DIRECTORY FID IN IT 
EB AD 18 AB DO O3F4 1055 MOVL FILSL_DIR_BEOFF (RS) .FILSC DIR BEOFF SENTRY (EP) 
EC AD 1C AS BO O3F9 1 36 MOVW  FILSWTDIRTBFCNT(RS) .FILSW-DIR-BFCNT+ENTRY (FP) 
FE i 3 ;SAVE~DIR LBN CACHE INFO TOO 
FE 1 36 : AT THIS POINT ENTRY(FP) CONTAINS DIRECTORY LBN CACHE INFORMATION 
FE 1 69 : IF ONE HAD ALREADY EXISTED OR IF WE JUST CREATED IT. 
43 | $3 : SET UP THE WORKING LOCATIONS FOR THE DIRECTORY LBN CACHE 
56 £4 AD 01 C3 O3FE 1063 908: SUBL3 #1, FILSL_DIR_LBN+ENTRY(FP),R6 ;R6O=STARTING LBN - 1 
ES EO AD $e 108 1064 MOVZWL FILSW_DIR_BKCNT+ENTRY(FP) ,R7 :R7=SIZE OF DIRECTORY IN BLOCKS 
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ND FILE 1D FOR SPECIFIED F ot 4 90:19:88 YeYS SRCIPILEREAD MAR: 1 . ¢$) 
MOV ZL FIL$W_DIR_BF CNT+ENTRY(FP) DIR_BFCNT(FP) -BUFFER COUNT IN LBN CACHE 
ADDL3 Fit L-DIR=BF OFF +ENTRY(FP).R11-DIR_BUF(FPS ;STARTING ADR IN CACHE 
ADDL R6,R ;CLAST LBN-OF FILE INCLUSIVE 
BRW FIND _LEVEL2_1 

BADDIR2; 

BRW BADDIR 


BADRET1: 
RET 


; CACHE WAS NOT ENABLED OR THERE WAS NOT A HIT FOR THIS DIRECTORY 
READ_DIR_HEADER: 


CALLG iad SROCHKFILHDR ;READ AND CHECK DIRECTORY FILE HEADER 

BLBC RO,BADRET ;BRANCH IF 

MOVL DIRBUF (AP) ,R5 ADDRESS OF BUFFER TO READ DIRECTORY BLOCKS 
SUBL3 #1, a@STATBLK(AP) ,R6 7GET START LBN - 1 


RESULT IS NEGATIVE, THEN THE pinearony — NOT CONTIGUOUS. 
E SUPPORTS ONLY CONTIGUOUS DIRE NOTHER BUFFER WOULD 

RED TO HOLD THE DIRECTORY HEADER IN ORDER TO SUPPORT NON-CONTIGUOS 
IES. SUCH DIRECTORIES ane oy CREATED BY FILES-11 WHEN 

ORY MUST BE EXTENDED AND THERE IS NOT ENOUGH CONTIGUOUS SPACE 

ON THE VOLUME TO MAKE A NeW DIRECTORY OF THE CORRECT SIZE. 


BLSS  BADDIR2 ;BRANCH IF NOT CONTIGUOUS 
> SEE IF THIS LOOKS LIKE A DIRECTORY FILE 


o 
“ 
Oo 
»@ 
— 
m 
nm 


pH2Su RECATTR(RS).R4  ; ADDRESS OF LEVEL 2 RECORD ATTRIBUTES 

10$: ROTL #16,FATSL_EFBLK(R4),R7 :VBN OF DIRECTORY EOF 

ist FATS FFBYTEC(R4) tIF ZERO, EFBLK IS LAST+1 VBN 

DECL. —-R? sCORRECT TO GET LAST VBN 
20$ ADDL3 #1.R6FILSL DIR_LBN+ENTRY(FP) ;SAVE START LBN, 

MOVW R7,FILS$W_DIR_BKCNT+ENTRY (FP) <BIRECTORY Y sige 

MOVB #1, FILSB=DIR <LVL+ENTRY (FP) sAND INDIC ODS-2 STRUCTURE LEVEL 

; (THIS IS FOR BACKWARD-COMPAT W/SYSBOOT) 


: SEE IF WE CAN SET UP A CACHE OF THE DIRECTORY BLOCKS FOR THIS DIRECTORY 
2 TSTL = R11 ZANY CACHEING ENABLED? 


BEQL .80$ *BRANCH | NOT 

SUBL3 FILSL_LBNNXT(R11),FILSL_LBNMAX(R11),R2 ;NO. OF BYTES 
“AVAILABLE f0 ALLOCATE 

ASHL #-9,R2,R2 iN. OF PAGES AVAILABLE 


CMPL : vad sENOUGH ROOM FOR WHOL 


R7R2 YES, U 1 
40S: MOVE FICSL_LBNNXT(R11),R3 [OFFSET TO DIR LBN CACHE 
: READ THE DISK BLOCKS INTO THE LBN CACHE. 


QOD NOAM LW OOD NAAE WN 2S OONAMN EWN SOD NAME WIND OD NAME WIS ODNAMN 
. 
=z 
o 
< 
> 
2 


ASHL 49,8 SP) ;BYTE COUNT TO TRANSFER 

MOVZWL Ree SLBLK,-(SP) TREAD LOGICAL BLOCK FUNCTION 
: PUSHAB tt + 5th [BUFFER ADDRESS 

PUSHL FILSL_DIR_LBN+ENTRY(FP) :STARTING LBN 
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vat FINDFILID = FIND FILE ID FOR SPECIFIED F bisa yi 88: 13: 8% SYS.SRCJF ILEREAD.MAR; 1 ” 
04 aC DD 476 11 j PUSHL CHAN(AP) ; CHANNEL 
0000' CF : FB 479 11 CALLS #5,W*FILSRDWRTLBN [FILL THE DIR LBN CACHE 
1650 «CE 47F 1 4 BLBC = RO, 80$ ‘BRANCH IF ERROR 
4 1 : : NOTE THAT DIRECTORY BLOCKS ARE IN MEMORY 
FC AD 5 po 481 11 8 : OVL R2,DIR_BFCNT(FP) ;COUNT OF BLOCKS READ 
FB AD 684 485 11 MOVAB (R11)CR3J,DIR_BUF(FP) ADDRESS OF FIRST BLOCK READ IN 
$5 48A 1130 TSTB EALST_0 IR’NAMTENTRY(FP) SARE WE LOOKING UP ANOTHER DIRECTORY? 
10 12 048D 1131 BNEQ  .80$ ‘BRANCH IF YES, DON'T ALLOCATE 
48F 11 “ iA PERMANENT CACHE ENTRY FOR 
4B 11 IN TERMEDIATE LEVEL DIRECTORY 
EC AD 5 BO O48F 1134 MOVW Re. FIL L$W_DIR _BFCNT#ENTRYL FP) ;SET_UP FOR SERMANENT ENT 
EB AD 5 00 493 1135 MOVL R “FAL $1. DIR-BFOFF+ENTRY(FP) :SAVE THE SIZE AND OFFSET ROF CACHE 
51. 52 09 78 0497 1136 ASHL #9.R2,R O. OF BYTES IN CACHE 
10 AB «51~=«CO 0498 1132 ADDL  R1.FILSL_LBNNXT(R11) ALLOCATE THE CACHE 
O49F 1139 : IF IT WAS POSSIBLE TO READ THE DIRECTORY INTO THE LBN CACHE AREA, 
049F 1140 : THE SCAN WILL FIND THESE BLOCKS AS THEY ARE NEEDED. 
O49F 1141 : 
Bie its bos 
O49F 1144 : R6 = STARTING LBN - 1 FOR THE DI RECT 
049k 1145 : R7 = COUNT OF BLOCKS OF DIRECTORY TO “Be SCANNED 
57 56 CO O049F 11e9 2 ADDL  _R6,R7 ;LAST LBN OF FILE (INCLUSIVE) 
0C 11 O4A2 1148 BRB FIND_LEVEL2 
Bene 1180 
Quad 1151 : ERROR RETURNS. 
50 0828 8F 3C 04A4 1133 BADDIR: MOVZWL #SS$_BADIRECTORY,RO 
OF OCAR 1189 BADE TLAARS 
50 0818 BF 3C O4AA 1156 MOVZWL #SS$_BADFILENAME,RO :RETURN ERROR CODE. 
04 O4AF 1157 RET 


—————————— 
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FILSFINDFITGD = STRUCTURE LEVEL mii ety 88: 13: 8% SYS. SRCIF ILEREAD. MAR; 1 . (98) 
480 1159 ~SBTTL FILSFINDFILID = STRUCTURE LEVEL 2 
48 1161 STRUCTURE LEVEL 2 
48 1188 FIND LEVEL2: 
EF 3405 OD €1 48 1164 BBC #FH2$V_DIRECTORY,FH2SL_FILECHAR(RS5) ,BADDIR ;DIRECTORY BIT MUST BE SE 
485 1166 ASSUME FATS$B RATTRIB EQ pATSB RTYPE+1 
0802 8F B61 O4B5 116 CMPW #<FATSM_NOSPAN @ + FATSC YAR AOLE> = ;VARIABLE LENGTH 
64 489 1168 FATSB RTYP Mee Re) RECORDS NOT CROSSING BLOCK BOUNDARIES 
—B8 12 O4BA 1189 BNEQ BAD ADDERS ‘BRANCH IF BAD RECORD ATTRIBUTES 
et 1159 : #eeee NOTE THAT EACH BLOCK MUST END INA RECORD SIZE OF -1 
04BC 11% ; teeee A RECORD IS NOT ALLOWED TO EXACTLY FILL THE BLOCK 
O4BC 1173 ; *ee** PDP-11 FILE CONTROL SERVICES WILL READ THIS FILE CORRECTLY, BUT 
Q4pe 1176 $ eeeee WILL NOT WRITE IT PROPERLY. LIKEWISE FOR RMS-11 AND RMS-32 
O4BC 1176 FIND -LEVEL2 1: 
58 08 BC 7D O4BC 1177 OVO aFILDSC(AP),RB :R8 = SIZE, R9 = ADDRESS OF FILE NAME STRING 
SA D4 04C0 1178 CORL R10 [ASSUME DEFAULT VERSION 
53 58 7D O4ce 1179 MOVO = RB, R3 [COPY FILE NAME DESCRIPT 
64 53 2€ 3A O04C5 1180 LOCC ~=—_- #* A. , R3,, (RG) ‘FIND FILE TYPE DELIMITER IF PRESENT 
07 13 04¢9 1181 BEQL «= 4 ‘BRANCH IF NOT PRESENT 
53 70 SE 04CB 1188 MOVAB =(RO), RS ‘SIZE OF REMAINING STRING 
54 01 Al QE O4CE 118 MOVAB 1(R1).R SADDRESS OF STRING BEYOND DELIMITER 
64 53 3B 3A O4D2 1184 40$: LOCC #*A/;/ Res, (R4) [SEE IF VERSION DELIMITER PRESENT 
64 53 $e if rh 1188 etd #°A/./,R3, (RS) soy ALTERNATE. VERSION DELIMITER 
f 13 banc 1187 aa. 138 7 [BRANCH IF NO VERSION STRING PRESENT 
O4DE 1189 : RO = BYTE COUNT OF VERSION STRING PLUS DELIMITER 
Q4DE 1190 ! R1 = ADDRESS OF VERSION DELIMITER 
4 1 $: U RO,RB ;REDUCE FILE NAME STRING SIZE 
ee i 1193 bo — SELIMINATING VERSION STRING AND DELIMITER 
7E DF 04E1 1194 PUSHAL -(SP) TRESERVE LONG WORD FOR VERSION NUMBER 
04E3 1195 :AND PUSH ITS ADDRESS 
01 A1 OF O4E3 1196 PUSHAB 1eRI) SADDRESS OF VERSION STRING 
70 «OF O4EG 1197 PUSHAB ‘SIZE OF VERSION STRING 
Q0000000'EF 03 FB O4E8 1198 CALLS ase PILScvT TB SCONVERT DECIMAL VERSION STRING TO BINARY 
B8 50 £9 O4EF 1199 BLBC RO. BADF FILNAN ‘BRANCH IF SYNTAX ERROR IN VERSION STRI NG 
5A BE ODO O4Fe 00 MOVL RSPS )+, ‘FETCH EXPLICIT VERSION NUMBER 
4F5 1202 : R6 = ADDRESS OF LAST LBN READ FROM DIRECTORY FILE (FIRST = 1) 
pre 1 88 : R7 = ADDRESS OF LAST LBN (INCLUSIVE) TO BE READ FROM DIRECTORY FILE 
Bird 1988 EAE Regt MMATTENG NE FSM ao on 
Gers 06 > R10 = FILE VERSION NUMBER IF EXPLICIT, OR O IF DEFAULT TO LATEST VERSION 
1B O11 aire 08 : BRB 120$ ;BEGIN LOOP AT BOTTOM 
are 10 : RS = ADDRESS OF NEXT RECORD 
A O4F7 1212 100$: MOVZBL DIRSB_NAMECOUNT(RS),R4 ;:GET SIZE OF "'NAME.TYP’’ STRING 
54 00°" a 83 2 z 18 . cnc nae (RO) ,#0,R4,DIRST CNAME ’RS) SEE TE siRINGS MATCH 
15 19 0504 1215 BLSS Obs [BRANCH IF BEYOND WHERE NAME WOULD GO 
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v04-000 FILSFINDFILID = STRUCTURE LEVEL -SEP-1984 03:42:00 (CSYS.SRCIFILEREAD.MAR;1 (10) 
65 3C 0506 121 MOVZWL DIR$W_SIZE(R5),RO SUSING THE SIZE OF THIs RECORD 
55 8 ASG i 03 1 i$ MOVAB Httate th RS i ORM ADDRESS OF NEXT RECOR 
65 8B 1 18 1108: TSTw  DIRSW_SIZE(RS) SEND OF BLOCK? (MARKED WITH -1) 
14 0510 121 BGTR  100$ [BRANCH IF NOT 
06 56 F3 0512 1220 120$: AOBLEQ R7,R6,160$ 
50 0910 &F zt 316 1 1608: MOVZWL #S$$_NOSUCHFILE,RO sCANNOT FIND FILE 
006D $s sic 1 : 160$: BSBW  READ_DIR_LBN ;READ THE NEXT DIRECTORY LBN 
ED 11 aif s BRB 110$ 
5 $ + FOUND A MATCH OF FILE NAME AND TYPE 
54 06 : 1 1228 200$: INCL  R4 : ROUND UP NAME COUNT 
54 01 CA 0523 1229 BICL #1,R4 TO EVEN NUMBER OF BYTES 
53 06 A544 SE 0526 1230 MOVAB DIRST_NAME(RS)CR4],R3 : ADDRESS OF FIRST VERSION ENTRY 
50 65 3C 0528 1231 MOVZWL DIRSY S1ZE (RS) .RO SIZE OF THIS RECORD 
55 02.0560 SE 0526 1 : MOVA (R5)CROJ,RS :FORM ADDRESS OF BEGINNING OF NEX RECORD 
05 1 :WHICH IS ALSO THE END OF THE VERSIONS 
SA D5 533 1234 TSTL R10 SLATEST VERSION DESIRE 
11. 13—«0535) («1235 BEQL 2408 ‘BRANCH IF YES, R3 1S ADDRESS OF 
0537 1 : ‘DESIRED VERSION AND FILE ID 
63 SA B61 0537 1 : 230$: CMPW R10,DIRSW_VERSION(R3) 1S THIS THE RIGHT VERSION? 
0c 13 05 A 1238 BEQL 2408 [BRANCH IF YES 
D8 1A 053C 1239 BGTRU 140$ [BRANCH IF PAST WHERE IT WOULD BE 
53 08 CO O53E 1240 ADDL  #DIRSC_VERSION,R3 [NEXT VERSION ENTRY 
55 53)—COD1si0541— 1241 CMPL RS RS SEND OF RECORD? 
Fl oF «400544 «1 4g BLSSU 2308 SBRANCH IF NOT, CHECK NEXT VERSION 
C6 11 0546 124 BRB 110$ ‘VERSION NOT IN THIS VERSION CHAIN 
0548 44 : IF IT IS IN THE NEXT RECORD 
+ FOUN L URN LL 
se8 46 FOUND THE FILE ID, RETURN IT TO CALLER 
56 702 As z 0548 48 240$: mova DIRSY. FID(R3) ,R6 :GET THE FILE ID 
18 BC 02A3 06 28 O54 30 MOVC3 #6.DIRSW_FID(R3),a@FILID(AP) ;AND RETURN IT TO THE CALLER 
b2ee : 2g : ; sre PP we gHOULD MAKE A CACHE ENTRY FOR THIS LOOKUP 
$55 1554 : 
555 1255 apie FND: 
5B pS «(0555 1 36 TSTL = R11 :1S THE CACHE ENABLED? 
2c «613 «40557 «125 BEQL 1008 SBRANCH IF NOT, JUST RETURN, THE FID 
D6 AD 95 0559 1 38 TSTB BILST_DIR_NAMFENTRYCFP) [WAS LOOKUP FOR A DIRE ECT ORY? 
0 if 33¢ 125 BNEQ 208 BRANCH IF YES, MAKE A CACHE ENTRY 
FL AD OD E 1260 TSTL — ENTRY_ADR(FP) CACHE HIT FOR THIS DIR H 
iF 561 1261 BNEQ 1008 {BRANCH IF 
1 363 1 6¢ BRB 30$ “MAKE THE CACHE ENTRY FOR THIS DIR HOR 
EE AD 7 D 36 1263 20$: MOVL RG. FILSA_ DIR_OFID+ENTRY(FP) ;STORE THE FID FOUND 
F2 AD «657—o«B 69 1264 MOVW R7-FILSADIR™ OF 1D+GsENTRY Y(FP 
58 08 AB OD 36D 1265 30$:  MOVL FICSL DIRNXTTR11),.R8 GET OFFSET 19 FREE SPACE 
50 58 2% C 3 9 66 ADDL3 #FIL$SC DIR SIZE,R6,RO FORM OFFSET TO END OF NEW ENTRY 
OC AB 0 pI 323 6 CAPL oot _DTRMAX(R11) : ENOUGH SPACE FOR NEW ENTRY? 
08 AaB O#SO 78 1 $3 MOVL.  RO,FILSL_DIRNXT(R11) een LOCATE THE NEW ENTRY 
6B48 00 AD 24 az 70 sn MOVC3 at C_DIR_SIZE,ENTRY(FPS, A R8) :AND WRITE IT 
50 Of 3¢ ge 1272 7358 MOVZWL #SS$_NORMAL,RO sINDICATE SUCCESSFUL COMPLETION 


———____---— 
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vou=000” FILSFINDFILID = STRUCTURE LEVEL 3. > 'ScSEpajoge Go:usso0 Lensveacteicercas_aan,1 29° 98, 
04 § 73 RET 
; 3 73 ; BAD DIRECTORY FILE 
589 1 § BADDIR1: 
FF18 31 0589 1278 BRW BADDIR 
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NEXT DIRECTORY LOW: SSEp=1986 Bo45200 Lees Maer e ee oes oe 9) 


od -SBTTL READ_DIR_LBN = READ NEXT DIRECTORY LBN 
+ FUNCTIONAL DESCRIPTION: 


READ THE NEXT DIRECTORY LBN FROM THE DISK OR POINT AT 
THE CACHED COPY IF ONE IS PRESENT 


; CALLING SEQUENCE: 
BSBW READ_DIR_LBN 


sti ll 


i 
im 
faa 
mr 


rc 
@r- 
te 

on 


me RB a a 4 a a ds 8 Ss bt a _ 4 > am 
Oo 
oo 


INPUT: 
R6 = DESIRED LBN 
DIRBUF (AP) = BUFFER Apone ss i ae IT INTO 
95 CHAN(AP) = CHANNEL FOR FILSRD 
9 DIR_BFCNT(FP) = Ent OF SUFFERS. REMAINING IN DIR LBN CACHE 
9 DIR_BUF(FP) = ADDRESS OF NEXT BUFFER IN DIR LBN CACHE 
99 ; OUTPUTS: 


RS _ = ADDRESS OF DESIRED DIRECTORY LBN 


Pah ab ab aba ab Ab Ab Ab Ab Ab Ab Ab AL AL AD AL AD AD AL AD AD AD AD AD AD AD AD AD AD AD AD AD AD AD AD AD AD AD AD AD AD Ab Ab Atemd 
> > YS FP ©0000 OO 0000000 09 00 09 GD GD CD CD 00. 0D CD CD GD CD CO CD CDODODODODODODODODODODCDCD =D 
SAME FFM OE 2 HAAAAAAAIAAAAAAAAOAAQOAAOAAAOOAAOAOOO t_ — 


O¢ : RSB IF SUCCESSFUL 
8 : RET WITH STATUS IN RO IF ERROR 
of : RO, R1 DESTROYED, OTHERS PRESERVED 
o3 READ_DIR_LBN: 
FC AD 5 0 TSTL DIR_BFCNT(FP) : ANYTHING LEFT IN DIR LBN CACHE? 
3 10 BEQL 208 BRANCH IF NOT 
FC AD D7 11 DECL DIR_BFCNT(FP) [COUNT ANOTHER opUEreR USED 
55 £8 Ap DO 1 MOVL DIR BUF (FP) »R RS [LOAD ADDRESS OF BUFFER 
FB AD 0200 € bE 1 MOVAL 512TR5),DIR_BUF (FP) sAND POINT TO NEXT BUFFER IF ANY 
0 13! 10$: RSB 
1$ 3 ; DIR LBN CACHE RAN OUT OF BLOCKS OR NEVER HAD ANY AT ALL 
55 10 aC 00 18 50s: MOVL DIRBUF (AP) ,RS ADDRESS OF BUFFER TO READ INTO 
1 READLBN cH WAN AP) R6 in5) ;READ THE DESIRED LBN 
7E 1 09 Twa 
E 2] ¢ nove His. REASLBLK, -(SP) 
5 «=F PUSHAL 
ou ie $B BRae att 
0000' CF 05 FB a CALLS Bet SROURTLEN 
ES 50 ce 58 1339 BLBS $ BRANCH IF READ SUCCESSFULLY 
589 1321 RET ‘RETURN ERROR STATUS 


613 
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vone RDCHKFILHDR = READ AND CHECK FILE H NEAbER : Het 1 88:19:88 SYS. SRCJFILEREAD.MAR; 1 - 3; 

35, ! ; -SBTTL ROCHKFILHDR = READ AND CHECK FILE HEADER 

BA 5 : FUNCTIONAL DESCRIPTION: 

BA 1 5 : ROCHKFILHDR READS AND VALIDATES A FILE HEADER GIVEN ITS FILE ID 

aa } 3 ; AND THE INDEX FILE HEADER AS RETURNED BY FILSMO 

BA : : CALLING SEQUENCE: 

DBA : : CALLG ARGLIST,FILSRDCHKFILHDR 

5BA , : INPUT PARAMETERS: 

SBA 1 : : CHAN(AP) CHANNEL ON WHICH DEVICE IS ASSIGNED 

SBA 1 F UNUSED UNUSED PARAMETER 

5BA 1 8 3 IXFHDOR (AP) ADR OF INDEX FILE HEADER AS RETURNED BY FILSMOUNT DI 
§384 1 : FILHDR(AP) ADDRESS OF 512 BYTE BUFFER FOR FILE HEADER D1 

SBA 1340; STATBLK (AP) ADR OF 2 LONG WORD AREA TO RETURN STATISTICS BLOCK D1 

SBA 1341: FILIDCAP) ADDRESS OF 3 WORD FILE ID OF DESIRED FILE HEADER D1 

SBA 1 4g : RTRVPTRLEN(AP) = ADDRESS TO RETURN THE NUMBER OF D1 

SBA 1343 : OF RETRIEVAL POINTERS STORED DI 

SBA 1344 ; aeeee OPTIONAL PARAMETER tee D1 

SBA 1345 : RTRVPTRBUF(AP) = ADDRESS OF RETRIEVAL POINTER D1 
O5BA 1 46 ; BUFFER DESCRIPTOR. THIS PARAMETER DI 
O5BA 1347 : IS PRESENT IF AND ONLY IF D1 
OSBA 1348; RTRVPTRLEN IS PRESENT D1 
O5BA 1349 : RETRIEVAL POINTERS ARE RETURNED IN DI 
O5BA 1350 : THE FORM 32 BIT BLOCK COUNT, 32 BIT LBN DI 
O5BA 1351 : ERO BUFFER DESCRIPTOR ADDRESS OR A DI 
OSBA 1 3 : ZERO BUFFER ADDRESS MEANS DON' EN 
098A 33 ; RETURN RETRIEVAL POINTER INFO en 
O5BA 35 $ IMPLICIT INPUTS: FA 
G5ek 1357; Nowe i 
058A 39 : OUTPUT PARAMETERS: rs 
it 61 : RO = SYSTEM STATUS CODE Fk 

3BA e§ : IMPLICIT OUTPUTS: Fh 

SBA 65 : NONE Ft 

DBA $ t COMPLETION CODES: Ft 

aBA $3 : SS$_NORMAL SUCCESSFUL COMPLETION rt 
a ‘1 > SIDE EFFECTS: Ft 

SBA 1 8 ; NONE rt 

aBN ars | 4 

3BA A: ; EQUATED SYMBOLS i 

SBA 1 28 + OFFSETS FROM AP F| 

SBA 1379; ] 


a Oe 
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v0G= RDCHKFILHDR - READ AND CHECK FILE HEADER 5-SEP-19 :42:00 CSYS.SRCIJFILEREAD.MAR; 1 (12) 

9 BA 1380 ARGCNT 's 0 

BA 1381 CHAN = 4 

BA 1 ; IXFHOR = 1 

1 BA 1 FILHOR = 1 

1 BA 1384 STATBLK = 

18 O5BA 1385 FILID = 4 
16 BA 1 : RTRVPTRLEN - 8 : OPTIONAL PARAMETER HF 
000002 2A | RTRVPTRBUF = ; PRESENT IF AND ONLY IF RTRVPTRLEN IS . 
3BA 89 : OFFSETS FROM FP I 
3BA 1391 SOFFSET 40. sNEGATIVE , <= IC 
BA 1 3 DRCNT ;COUNT OF FILE HEADERS READ IC 
SBA 139 CTMPRIRVLEND - ‘TEMP RTRV PTR BYTE COUNT 1) 
SBA 34 <TMPRTRVDSC, §>- [TEMP RTRV PTR BUFFER DESCRIPTOR U 
FFF HDRCNT: N/ 
FFF TMPRTRVLEN: N/ 
FFF TMPRTRVDSC: Of 
OSBA 1396; OF 
et oF 
O5BA 1399 FILSRDCHKFILHOR:: Of 
007¢ O5BA 1400 «WORD ancR2 R3,R4,R5,R6> Of 
01 CE O58C 1401 MNEGL (§P) ;COUNT OF HEADER BLOCKS READ Of 
7E 04 O5BF 140¢ CLARL. = “{8) SINIT RTRV PTR BYTE COUNT Of 
eS: 3c] 140 CLRO 20s = (SP) ‘ASSUME NO RTRV PTR BUFFER OF 
08 6C D1 O05¢3 1404 CMPL § ARGCNT(AP) »WRTRVPTRBUF /4_ -RTRV PTR PARAMS PRESENT? OF 
0 19 05¢6 1405 BLSS 3 RANCH IF NOT OF 
50 20ac 0D O5¢ 1406 MOVL §RTRVPTRBUF (AP) ,RO ZRTRV BUFFER DESCRIPTOR ADDRESS Of 
07 «1 Séc (140 BEQL $ SBRANCH IF NONE SPECIFIED OF 
FO AD 60 7D O05C 1408 MOV (RO), TMPRTRVDSC(FP) [MAKE COPY OF BUF DESCRIPTOR OF 
1¢ BC D4 990 1409 CLRL @RTRVPTRLEN(AP) SINIT RETURNED BYTE COUNT oF 
0308 1411 ASSUME FILHDR EQ IXFHDR+4 OF 
52 OC AC 7D «(0505 1418 2s: MOVQ —sIXFHDR(AP) ,R2 iRe = INDEX FILE HEADER ADDRESS OF 
509141 "R3 = FILE HEADER ADDRESS OF 
509 1414 ASSUME FILID EQ STATBLK+4 Of 
54 14 AC 7D 0509 1415 MOVQ = STATBLK(AP) ,R4 :R4 = RETURN STATBLK ADDRESS Of 
SDD 1416 [R5 = ADDRESS OF FILE of 
ze 65 7D 0500 141 MOV = (RS) , = (SP) ; LE ID TO WRITABLE SCRATCH Ol 
55 SE 00 O5e0 1418 MOVL  $P,R5 ‘AND REMEMBER ITS ADDRESS Ol 
56 7E)0=—7E.«C(OS5E3 «(1419 MOVAQ =(SP),R6 SRESERVE SCRATCH STATISTICS BLOCK Ol 
3E 1420 [AND SAVE ITS ADDRESS IN R6 Ol 
“Oo Ff £6 1421 CLRQ = (R4) SINIT THE RETURN STAT BLOCK ol 
64 p 568 14 : DECL  (R4) :=1 LBN MEANS NOT YET STORED ol 
: 65 C O5EA 1423 5$ MOVZWL (R5),-(SP) “FILE ER 19 L ONG WORD Ol 
05 06 A A €1 OSED 1424 BBC #FH2$y B1GF ILNUM FH2SW ~STRUCLEV(R ),10 BRANCH IF NO BIG FIL NUM Ol 
02 AE 05 AS SF2 1425 MOVB FID$B_AMX(RS) ,2(SP) sHIGH 8 BITS OF RVN COMPLETE FILE NUMBER Ol 
50 gf DO O5F7? 14 é 10$ MOVL  (SP)+7RO IF FILE ID IS ZERO, Ol 
1 FA 14 BNEQ 12% Ol 
006D ; FC 14 8 BRW 4 $ ;THEN READ LAST HEADER BLOC Ol 
51 1FE é FF 1429 12$ MOVZWL FH2$W_VBNOFFSET(R2),R1 ;RECOVER VBN OFFSET FROM INDEX FILE HEADER 01 
0 c 6 4 1430 ADDL _R1,RO™ [ADD VBN OFFSET TO FORK INDEX FILE VBN 01 
FC AD D6 7 1631 INCL __ HDRCNTCFP [COUNT EACH HEADER READ 01 
iets 6 A 1432 READVBN CHAN( ANCAP) AQ. (83), ,(R2) READ THE FILE HEADER 0 
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v04- RDCHKFILHDR = READ AND CHECK FILE HEADER mit} 7 89:19:85 SYS.SRCJFILEREAD.MAR; 1 . 3) 
$3 DF 69¢ PUSHAL (R3) 
DD PUSHL R 
04 AC DD $1 PUSHL CHAN(AP) 
O685'CF 04 FB 1 CALLS #4 ,W*F ILSREADVBN 
62 50 €9 0618 1433 BLBC ~=—_«»RO., 50 ;BRANCH IF ERROR 
SD FC AD 1F «6©€0 «(0618 «1434 BBS #31 HDRCNT(FP),50$ :BRANCH IF JUST RE-READING MAIN HEADER 
50 DO 0620 1435 MOVL  R5,R0 [GET FILE ID ADDRESS 
51 p 6 14 : MOVL R3.R1 SADDRESS OF FILE HEADER 
01 : 14 BSBW =s FAIL SCHKFILHDR [CHECK THE FILE HEADER 
52. OC AC 00 0609 14 : MOVL —IXFHDR(AP) ,R2 S INDEX FILE HEADER ADDRESS 
FO AD DF 060d 14 PUSHAL TMPRTRVDSC(FP) SRTRV PTR BUF DESCRIPTOR 
FB AD DF 0630 1440 PUSHAL TMPRTRVLEN(FP) SADDRESS TO RETURN BYTE COUNT 
26 DD 0633 1441 PUSHL Rs SADDRESS OF SCRATCH STAT BLOCK 
DD 06 1446 PUSHL R SADDRESS OF FILE HEADER 
0718'CF 04 FB 0637 144 CALLS #4,W*FILSSTATBLK SREAD STATISTICS BLOCK 
51 FB AD DO 063C 1444 MOVL §TMPRTRVLEN(FP),R1 SANY RTRV PTR INFO TO RETURN? 
16 13 0640 1445 BEQL 168 SZERO IF NONE REQUESTED 
1¢ BC) 6051) 1446 ADDL  R1,@RTRVPTRLEN(AP) SACCUMULATE RTRVPTR BYTE COUNT 
FO AD 51 D1 0646 144 CMPL  R1, TMPRTRVDSC (FP) sMORE SPACE NEEDED THAN WOULD FIT? 
06 15 064A 1448 BLEQ 436s «148 ‘BRANCH IF NOT 
51 0 AD 00 O64¢ 1449 MOVL §§_TMPRTRVDSC(FP).R1 [SAY WE USED IT ALL UP 
FL AD 51 «CO 0650 1450 148 ADDL  R1, TMPRTRVDSC+4 (FP) :GET NEW STARTING ADDRESS 
FO AD 51 €2 0654 1451 SUBL = R1, TMPRTRVDSC(FP) TAND CALC NEW SIZE REMAINING 
51 64 D2 0658 1458 16$ MCOML © (R4) ,R1 [SEE IF START LBN HAS BEEN SET 
03 12 0658 145 BNEQ 20$ SBRANCH IF IT HAS 
64 66 DO 065d 1454 MOVL  (R6), (R4) 'SET IT ONCE ONLY 
04 AG 04 AG CO 0660 1455 208: ADDL 4(R65,4(R4) :ADD IN THE SIZE FROM THIS HEADER 
65 OF AS 7D 066 1456 MOV FH2$W_EXT_FID(R3),(R5) :GET EXTENSION FILE ID IF ANY 
FF 31 0669 1437 30$: BRW 5$ :READ THIS HEADER IF ANY 
066¢ 1459 t LAST FILE HEADER READ, SEE IF MUST RE-READ THE ORIGINAL HEADER 
FC AD DS 066C 1461 dos: TSTL HDRCNT(FP) :WAS -1, BUMPED ONCE PER READVBN 
09 15 O66F 146¢ BLEQ 45$ SBRANCH IF STILL HAVE MASTER FILE HEADER 
65 18 BC z 671 146 MOVQ a@FILID(AP), (RS) [ORIGINAL FILE ID AGAI 
EF FC AD IF E 675 1464 BBCS #31, HDRCNT(FP) ,30$ ‘SET SIGN BIT AND GO READ ORIGINAL HEADER 
50 (01 3¢ 067A 1465 458: MOVZUL #5S$_NORMAL ,RO SRETURN SUCCESS STATUS 


NNN NNN SSS SNS SN SNS NSN SSNS 
ee ee ce me ee ee cee et ce ce ce ee ee ee a ee ee ee ed ed od od dd dd od od dd dd Clea) 
PAA AA AAAI AIIM UI IU UII IU EE REE REPEL PPP PEPE PPE PEPER AK 


FAO OODNAUNE WIN O OD NAME WIN SO OD NA UNE WIN 9 OO NAME WP  OODNAULS WI -O 00 
Sete te 
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D/WRITE VIRTUAL B 5-SEP=1 SYS.SRCJFILEREAD.MAR; 1 
cia -SBTTL READVBN, WRITEVBN = READ/WRITE VIRTUAL BLOCK 
; FUNCTIONAL DESCRIPTION: 


THESE ROUTINES ae OR WRITE A VIRTUAL BLOCK FROM A hey 
VOLUME IS SPECIFIED BY THE CHANNEL TO WHICH IT IS ASSIGNED, A 
FILE IS SPECIFIED BY THE ADDRESS OF ITS FILE HEADER WHICH WAS "PREVIOUSLY 
READ BY A CALL TO FILSRDFILHDR. 
; CALLING SEQUENCE: 
CALLG ARGLIST,FILSREADVBN 
CALLG ARGLIST,FILSWRITEVBN 
; INPUT PARAMETERS: 
CHAN(AP) = CHANNEL TO WHICH VOLUME IS Ssouee 
VBN (AP) = ;DESIRED VIRTUAL BLOCK 
BUF ADR (AP) = sADDRESS OF BUFFER 10. READ INTO 
FILHOR (AP) = ZADDRESS OF FILE HEADER 
IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 

RO = SYSTEM STATUS CODE 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 


SS$_NORMAL SU 
SSS_ENDOF FILE SP 


SIDE EFFECTS: 
NONE 


RETURN 
VBN BEYOND END OF FILE 


EQUATED SYMBOLS: 
OFFSET FROM AP 


CHAN = 4 sry TO WHICH VOLUME IS ASSIGNED 
VBN = 8 ;VIRTUAL BLOCK 
BUF ADR = \3 {BUFFER ADDRESS TO READ INTO 
FILHDR = 1 ZADDRESS OF FILE HEADER 
OFFSETS FROM FP 
IOFUNCTION - “4 :SAVED 1/0 FUNCTION CODE 


Peslaslaslasiasloslasliaslesiaslatiaslaslaslaslasiasleslaslosioslasiaslaslasiaslaslasiaslaslaslaslasleslasliaslasiaslaslesieslasi esl esas esl esl asi eles esl esl ese esl eal aa) 


PORNO 4 BQO DOOD 000000 0000-000 0.00 00 00 00 09 00 09 0009 09 INI NII NINN NOOO 
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06 
6 
6 
6 
06 
6 
6 
6 
6 
06 
06 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
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yore READVEN. WRITEVBN OREADTORITE CORTUMC DB ScSEPalone Boiacion LeneMes Macro vee OO aoe 33; 
7E 1525 
7E 1 : FILSWRITEVBN:: 
003¢ 7E 1 SWORD “M<R2,R3,R4 
7E 20 € 0680 1 MOVZWL #10$_W ieetate: -(SP) 
11 06 BRB ROURTVEN 
g 1531 FILSREADVEN:: 
003¢ 6 1 é WORD “M<R2,R3,R4,R5> 
7E 21 3€ 687 2 MOVZWL #10$ “REABLBLK.~(SP) 
68A 1535 RDWRTVBN: 
55 10 ac 00 6 A 1 y MOVL  FILHDR(AP),R5 sBASE ADR OF FILE HEADER 
i 68 BSBB  —s INIRTRVPTRSCAN :SET UP TO SCAN RETRIEVAL POINTERS 
690 1 § ! R4 = POINTER TO FIRST RETRIEVAL POINT 
690 1540 : RS = POINTER TO FIRST BYTE BEYOND Wt T AETRIEVAL POINTER 
69 1341 ; LOOP THROUGH RETRIEVAL POINTERS TO FIND THE ONE WHICH CONTAINS THE DESIRED VBN 
53 O08 AC 01 C3 690 130 , SUBL3 #1 VBN(AP) .R3 ;VBN BASE 0 TO LOOK F 
8 10 0695 1544 208:  ®BSBB GET TRVPTR [FETCH NEXT RETRIEVAL POINTER 
50 D1 0697 1545 CMPL = R'3, RO :1$ VBN IN THIS RETRIEVAL POINTER 
0E 19 069A 1346 BLSS 40% ‘BRANCH IF YES 
53. 50S c2s«069C 154 SUBL RO, R3 iPASS OVER THAT MANY VBN'S 
55 54) OCOD1sCO69F «1548 CMPL R5 SANY MORE RETRIEVAL POINTERS? 
Fil iF 06A2 1549 BLSSU BoE" ‘BRANCH IF YE 
50 0870 BF 3C 06A4 1550 MOVZWL #SS$_ENDOFFILE,RO SRETURN END OF FILE INDICATION 
a | Paates 
dea 1388 : VBN IS IN THIS RETRIEVAL POINTER, R1 = STARTING LBN 
7E 01 9C 06AA 1555 40$: ROTL 9#9,#1,-(SP) ;NUMBER OF BYTES TO READ/WRITE 
FC AD DD O6AE 1336 PUSHL LOFUNETLONCrP) :FUNCTI 
oe 510° ac Dp a8 1357 PUSH we RAP) :BUFFER TO TRANSFER TO/FROM 
DD 0688 1559 PUSHL petaes + CHANNEL 
0000'cF 05 FB 06BB 1560 CALLS it WF IL SRDWRTLBN : TRANSFER THE BLOCK 
04 06C0 1561 RET 
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yore INIRTRYPTRECAN = INE TEAL LZ ws RouTIA Bo SxSE = ]SRs BSiLSibo FENCMES Macro yan -O0 age 22, 
C1 - .SBTTL INIRTRVPTRSCAN = INITIALIZE RETRIEVAL POINTER SCAN 
cI ; FUNCTIONAL DESCRIPTION: 
cI 5 ; LOCATE START AND END OF RETRIEVAL POINTERS IN A FILE HEADER. 
13 $3 ; CALLING SEQUENCE: 
6c 4 : BSBW = INIRTRVPTRSCAN 
6c 5g ; INPUT: 
et 73 : RS = FILE HEADER ADDRESS 
6c! 7 : OUTPUT: 
ta 1338 ; R4 = ADDRESS OF 1ST R RET RIEVAL POINTER 
06¢1 1380 ; RS = ADDRESS OF FIRST BYTE BEYOND LAST RETREIVAL POINTER 
Be 
06C1 1584 INIRTRVPTRSCAN: 
50 01A5 9A 6c} 1585 MOVZBL FH2SB MPOFFSET(RS),RO | ;WORD OFFSET TO MAP AREA 
54 6540 3€ 06CS 1586 MOVAW  (RS5)CROJ,R ;BA SE ADR OF MAP AREA 
55 3A AS 9A 06C9 1587 MOVZBL FH2$B_MAP_INUSE(RS),R5 :NO. OF WORDS OF RTRV PTRS IN USE 
55 6445 4 Beco 1388 10S: ROVAU (R4)CR5I,R5 SADR JUST BEYOND LAST VALID RTRV PTR 


ae 
OUTI 
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4 GETRIRVPTR = CONVERT fiend RETRIEVAL POIN 5-SEP=1984 t 83: 13: 8 FeYS. SRCJF 1LEREAD MAR: 1 ad 8) 
p e pat .SBTTL GETRTRVPTR = CONVERT NEXT RETRIEVAL POINTER 
p ; ; FUNCTIONAL DESCRIPTION: 
Do 1 3¢ : CONVERT NEXT RETRIEVAL POINTER TO NUMBER OF BLOCKS COVERED BY 
$ 36 ; POINTER AND STARTING LBN. 
p 38 ; CALLING SEQUENCE: 
é 16 6 : BSBW = GETRTRVPTR 
$ 16 5 ; INPUTS: 
6p 16 4 : R4 = ADDRESS OF NEXT RETRIEVAL POINTER 
6p 1606 : OUTPUTS: 
6D 1608 : RO = NUMBER OF BLOCKS COVERED BY THE RETRIEVAL POINTER 
6D2 1609 : R1 = STARTING LOGICAL BLOCK NUMBER 
06D2 1610: R2,R3 PRESERVED 
6 1611 : 
obs 181g 
Dep 1614 GETRTRVPTR: 
be 1616 : STRUCTURE LEVEL 2 RETRIEVAL POINTERS 
Oep iol 3 BITS 14:15 = RETRIEVAL POINTER FORMAT 
50 64 02 OE EF 6 1619 50s: EXTZV wenZSV_ FORMAT ,#FM2$S_FORMAT,(R4),RO ;FORMAT TO RO 
0607 1621 PLACEMENT, - ;PLACEMENT FORMAT 
D7? (16 é FORMAT1,- TFORMAT 1 
0607 16 FORM MAT2- [FORMAT 2 
ber, 1658 
O6E! 16 $ : FORMAT 3 = 8 BYTES 
dee 1608 : BITS 0:13 = BITS 16:29 OF COUNT - 1 
661 16 9; BITS 14:15 = FORMAT = 3 
6E1 1630 : BYTES -3 = BITS 0:15 OF COUNT - 1 
GE! 16 1: BYTES 4-7 = LOGICAL BLOCK NUMBER 
6E1 16 é FORMAT3 
50 84 10 9 661 16 4 ROTL #16,(R4)+,R0 ;FORM COUNT 
50 02 'I€ 00 FO GES 16 5 INSV #0, 450,#2,R0 ZERO HI HIGH 2. alts 
19 11 GED 16 $ BRB INCRSB INCREMENT COUNT AND EXIT 
6EF 16 § PLACEMENT CONTROL - THIS IS NOT A RETRIEVAL POINTER, RATHER IT 
6EF 1640 : CONSISTS OF 2 BYTES OF PLACEMENT INFORMATION. TREAT AS IF 0 
6EF 1641 : ; NGTH RETRIEVAL POINTER 
CEE 1808 *s 
6EF 164i ade: 
5! 1 ce EF 1645 MNEGL #1,R1 s IMPOSSIBLE L 
4 ‘ ¢ oF 1646 ADDL #3 4R4 [BUMP THE BOTATER 
D4 O06F5 164 CLRL OR [CLEAR BLOCK COUNT 
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EADING ROUTINES 16-SEP-1984 00:10:07 YAX/VIS Macro. v04-00 ° 8 
STICS BLOCK reer ribs B8i18:85 Hee M eS Perak es Aer: oe ft, 


: -SBTTL STATBLK = GET FILE STATISTICS BLOCK 
; FUNCTIONAL DESCRIPTION: 


GIVEN A FILE HEADER, RETURN THE FILE STATISTICS BLOCK 
AND OPTIONALLY RETURN THE RETRIEVAL POINTERS 


; CALLING SEQUENCE: 
: CALLG ARGLIST,FILSSTATBLK 
; INPUT PARAMETERS: 


aor 


em ed ed ad = oe 2 Ww 2 2 2 Sd I 2 8 = 2 os a 2 row" 


oe 
_~ 
>" 
te 
or 
SN NSN SNS NO AAA PAOAAAOAOOOSOOSOSOOSOOOOO < 


FILHDR(AP) = ;ADDRESS OF THE FILE HEADER 
STATBLK (AP) = ;ADDRESS TO RETURN STATISTICS BLOCK 
RTRVPTRLEN(AP) = ;ADDRESS TO RETURN THE NUMBER OF 
sBYTES OF RETRIEVAL POINTERS 
;FOUND IN THE FILE HEADER(S). 
peteeee OPTIONAL PARAMETER eeeee 
RTRVPTRBUF (AP) = ;ADDRESS OF RETRIEVAL POINTER 
;BUFFER DESCRIPTOR. THIS PARAMETER 
31S PRESENT IF AND oa IF 
sRTRVPTRLEN IS PRESENT 
: RO DESCRIPTOR ADDRESS " ZERO 
FFER ADDRESS MEAN 
S RETURN RETRIEVAL POINTER INFO 


; IMPLICIT INPUTS: 


: NONE 


BDODODOOCOCOC OOOO 000 O0OOWWOd 90000 GD0000 SIN 


MRO ODNA NEW DOONAN WN SF OO ONAU EWN 9 ODN IFW 0 ODOM WO OONG HT 


; OUTPUT PARAMETERS: 


at Dae ae te te te tee ee eh te i Be nt Be ee eee i i i ee ek 
ed ed ed aed ed en ee ed ce ee ae a ae ee ce ce a en ee ed cn ed cl ee co ce cee ee al ce ce ee ee ee ce cel a ee cel ee ee ee ee ee ce cee ca ee ee oe eed ce ee ce ce el el 
€009000009:000000.00 60 00 00 09 09 00 G0 09 9 0D 00 Cn C0 OD Od OS 69 0D Cd 0D 09 Od Cd CD Od Cd Cd C9 C9 Cd CD CD C9 CD CD CD CD CO CO CO CD CD CD CD OD CDCDOD 


SOOOOSOOOOOCOCOOCOOCO COCO SCC SOSCOOCCOCOOOSOOCOCCOOOCOOOOCOOOOOOOOOOO 


0 RO = SYSTEM STATUS CODE 
1 STATBLK CONTAINS 2 LONGWORDS 
1 LBN OF 1ST BLOCK IF CONTIGUOUS OR ZERO IF NOT 
1 SIZE 0 OF FILE _IN BLOCKS 
1 RTRVPTRLEN RECEIVES THE NUMBER OF BYTES OF RETRIEVAL POINTER 
1 INFORMATION THAT vor rye e Eon ee ee THE RETRIEVAL 
1 POINTER BUFFER GIV E ENOUGH R. 
1 THE RETRIEVAL POINTER BUFFER RECEIVES NORRALIZED re 
! POINTERS IN THE FORMAT BIT COUNT IT $ ARTING LBN 
19 ; IMPLICIT OUTPUTS: 
NONE 
; COMPLETION CODES: 
SS$_NORMAL SUCCESSFUL COMPLETION 
; SIDE EFFECTS: 
NONE 
; EQUATED SYMBOLS: 


C 16 
FILEREAD - FILES11 LEVEL 2 FILE READING ROUTINES 16-SEP- AX/VMS Macro V04-00 Page 39 
V e850 STATBLK = GET FILE STATISTICS BLOCK g-3EF SEP= 1384 88: 13: 84 SYS.SRCJFILE LEREAD.MAR: 1 9 16) 
718 1733; 
4 1 2 3 OFFSETS FROM AP 
00000000 0718 1736 ° ARGCNT = 0 ; ER OF ARGUMENTS 
0090004 718 #17 $ FILHDR = 4 SADDRESS OF FILE HEADER 
000008 0718 17 : STATBLK - 8 SADDRESS TO RETURN STATISTICS BLOCK 
000000C 0718 17 RTRVPTRLEN : 12 SADDRESS TO RETURN COUNT OF BYTES 
718 1740 ‘STORED IN THE RETRIEVAL POINTER BUFFER 
00000010 0718 1741 RTRVPTRBUF . 16 SADDRESS OF RETRIEVAL POINTER 
71 1246 [BUFFER DESCRIPT 
71 1743 ; 
7 1744 ie 
718 1745 
071 1746 FILSSTATBLK:: 
OOFC 0718 174 .WORD  “M<R2,R3,R4,R5,R6,R7> 
56 7C O71A 1748 CLRQ se R6 : ASSUME NOT DOING RETRIEVAL POINTERS 
04 6C 01 O71C 1749 CMPL ARGCNT(AP), #RTRVPTRBUF/4- :RTRV PTR PARAMS PRESENT? 
OF 19 O71F 1750 BLSS :BRANCH IF NOT 
50 10 AC 09 0721 1751 MOVL —§ RTRVPTRBUF (AP) ,RO TADDRESS OF BUFFER DESCRIPTOR 
09 (1 725 173¢ BEQL SBRANCH IF NOT SPECIFIED 
56 60 7D 0727 175 MOVG (RO) R6 7R6 = MAX SIZE, R7 = BUFFER ADR 
56 07)—COCA—s«O72A—s«175K BICL SEVEN MULTIPLE OF 8 BYTES 
0c BC D4 O72D 1755 CLRL AR TRVPTRLEN(AP) INIT RETURN BYTE COUNT 
55 04 AC DO 0730 1756 SS: MOVL FILHOR (AP) ,R :ADDRE S OF FILE HEADER 
50 34a5 9A 0734 1757 MOVZBL FH2$L FILECHAR(RS) RO ILE CHARACTERISTICS IF LEVEL 2 
7E SO O01 O? EF 0738 1758 108: EXTZV. #FH2$0_CONTIG,#1,R0, © spit :CONt 1GU0US BIT TO TOP OF STACK 
FF81 30 073d 1759 aSBW INTRTROBIRSCAN sINIT FOR SCAN OF RETRIEVAL POINTERS 
53 D4 0740 1760 CLRL = R33 SINIT REGISTER TO COUNT BLOC 
29 «11 «0742~=«1761 BRB Os :START AT BOTTOM OF LOOP IN CASE 
0744 176 [FILE HAS NO RETRIEVAL POINTERS 
FF8B 30 0744 1763 20$: BSBW GETRTRVPTR [GET THE NEXT RET RIEVAL POINTER 
53 DS «(0747 «1764 TSTL «OR [1S THIS FIRST RTRV PTR? 
0A 12 o749 1765 BNEQ 40% :BRANCH IF ALREADY COUNTED SOME 
0748 1767 : FIRST RETRIEVAL POINTER 
0748 1768 ; 
50 DS 0748 1769 TSTL ~=RO : IGNORE EMPTY ONES 
1E 13 074D 1770 BEQL 508 
03 6€ £9 O74F 1771 BLBC (SP),40$ ;BRANCH IF FILE NOT CONTIGUOUS 
075 1226 :0(SP) = 0 IN THIS 
6f 51 p00 0752 177 MOVL R11, (SP) ‘SET LBN OF 1ST NON-ZERO RTRV PTR 
53 50 cO 0755 177% 40S: ADDL  _RO.R3 SACCUMULATE COUNT OF BLOCKS 
56 «DS «(0758 «1775 TSTL RB SANY MORE ROOM FOR RTRY PTRS? 
09 13 075A 1776 BEQL 4 45$ ‘BRANCH IF NO MORE BUFFER SPACE 
87 50 v0 O75c 177 MOVL RO, (R7)+ [STORE SIZE OF RETRIEVAL POINTER 
87 51 00 O75F 1778 MOVL  R1,(R7)+ [AND STORE LBN 
56 08 C roe 1779 SUBL #8,R6 [USED 8 MO MORE BYTES OF SPACE 
57 05 0765 1780 45$ TSTL = R? ;DOES CALLER WANT RTRV PTR INFO? 
04 1 767 1781 BEQL 46©=s-—«sS0S CH IF NOT, DON'T COUNT POINTERS 
0c BC 08 cO 0769 17 : ADDL #§ #8, @RTRVPTRLEN(AP) :UPDATE RTRV PTR BYTE COUNT 
55 54 01 076D 1783 50S: CMPL = RGR Y MORE RETRIEVAL POINTERS? 
D2 «OF 720 1784 BLSSU 208 ‘BRANCH IF YES 
04 BA 772 «1785 POPR #N<R2> 3GET SA veD STARTING LBN 
08 eC 2 2D 0774 17 6 TATBLK (AP) [RETURN THE STATISTICS BLOCK 
0 (01 3¢ 778 1787 ROvzuL rity “NORMAL ,RO SSUCCESSFUL COMPLETION 


rAuEREAD =sEPEESET AEWEL 2yEDLE, READING wOUTINes  1g-seP-1964 99:10:07 YAK/UNE macro vO4-90, | Page 49 
rs -SBTTL FILSCHKFILHDR = CHECK FILE HEADER VALIDITY 
4 ; FUNCTIONAL DESCRIPTION: 
CHECK THE VALIDITY OF A FILE HEADER 
3 CALLING SEQUENCE: 
3 BSBW FILSCHKFILHDR 
; INPUT PARAMETERS: 
RO = ADDRESS OF FILE 1D, 


IMPLICIT INPUTS: 

; NONE 

OUTPUT PARAMETERS: 

RET IF NOT VALID WITH RO > ERROR STATUS 
: IMPLICIT OUTPUTS: 

oe 

; COMPLETION CODES: 


COOCCOCOCOC CO GCOOC COCO COCOCCOOCOOCOOCOOCSOOOOCOOOOCOOOOoOOoOoO iI! 


ee ee a ee ee ed ah a ho oo OOTY 
AIE WN O ODA NEW  O OD NA UNE WIN OS OD NA UNE WWI FO OO NOAU EWN O ODNOUE WIN O 


SS$_BADFILEHDR FILE ID CODES DON'T MATCH 
u SS$_NOSUCHF ILE FILE IS MARKED AS DELETED 
, ; SIDE EFFECTS: | 
7 NONE 
7 ' 
77 ee 
77 
77 FILSCHKFILHOR: 
02 O07 Al 91 «077 CMPB = FH2SB_STRUCLEV(R1),#2 ;1S THIS STRUCTURE LEVEL 2? 
1E 12 2 BNEQ 308 :BR IF NOT, REPORT ERROR 
> STRUCTURE LEVEL 2 
7E OC Al 3C 07 10$: MOVZWL FNS _FID_RVN(RI) ,~(SP) ;PUSH RELATIVE VOLUME NUMBER 
7E O8 Al OD 7 VL FH2SW_FID_NUM(R1),-(SP) ;PUSH FILE ID ON STACK 
of B 7 15$: TSTwW (SP) sFILE DELETED? 
18 13 078C BEQL «6-4 OS :BRANCH IF YES 
8E 80 di 07 F CMPL  (RO)*+,(SP)+ ;FILE NUM AND FILE SEQ NUM AGREE? 
D if 7 4 BNEQ 308 ;BRANCH IF NOT, BAD HEADER 
6 D 79 4 TSTL (SP) 3s CHECKING RVN? 
05 19 079 4 BLSS 208 :BRANCH IF NOT 
6€ 60 B81 079 4 Ch (RO), (SP) SRELATIVE VOLUME NUMBER AND 
79A 4 :FILE NUMBER EXTENSION AGREE 
04 12 O79A 184 BNEQ 308 ;BRANCH IF NOT 
01 BA O079C 1846 208 POPR = #*M<RO> TCLEAN OFF STACK 


em mmm mn a 


Fie 


FILEREAD = FILEST? LEVEL 2 FILE READ UTINES 16S :10:07 VAX/VMS Macro v04-00 Page 41 
| w=obo FIL OHRSPILHOK Ss EWEER RTEE UC RDP RS VAR ToL “ScSep-1oRC Soieoibm PANCMES acre YOs-00 Ot v 7) 
oc 11 O79E 184 Re FILSCHECKSUM £60 VERIFY THE CHECKSUM 
50 0810 BF 5 OPA T84B 308: © OVuL HSS$_BADF ILEMDR.RO ITHIS HEADER IS B 
50 0910 BF $C O7A6 1850 408: —MOVZML_#SS$_NOSUCHFILE,RO SDELETED FILE 
04 O7AB 185 RET 


ILE READING ROUTINES 1 meet 1 9: 19: 4 AX/VMS 3H o V04-00 Page cif 


E 
CHECKSUM “SEP=1 SYS.SRCIFILE EREAD. MAR; 1 
ae ~SBTTL CHECKSUM = VALIDATE A CHECKSUM 
; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE CALCULATES AND CHECKS THE FILE11 CHECKSUM FOR 
FILE HEADERS AND THE HOMEBLOCK. 


; CALLING SEQUENCE: 


Et abl 


oS 
Pr 
= 
mn 
>r 


EVEL 
VALI 
1853 
1854 ; 
: 32 : 
3? 
1 38 
7AC : et ; 
7AC 1 6¢ : BSBW Ss FIL SCHECKSUM :CHECK FILE HEADER CHECKSUM 
gat ae ; BSBW = FILSCHECKSUM1 [CHECK SPECIFIED NO. OF WORDS IN RO 
ZAC 65 : INPUT PARAMETERS: 
7AC 1869 : RO = NO. OF WORDS TO CHECK IF ENTERING AT CHECKSUM1 
Brae 1908 3 ; R1 = ADDRESS OF BUFFER TO CHECK 
O7AC 1870 : IMPLICIT INPUTS: 
O7AC 1871; 
BA ig: on 
O7aC 1874 : OUTPUT PARAMETERS: 
O7AC 1876 : RSB TO CALLER IF CHECKSUM IS OK 
Ooag 14a ; RET TO TOP LEVEL WITH ERROR CODE IN RO IF CHECKSUM IS WRONG 
O7AC 1879 IMPLICIT OUTPUTS: 
O7AC 1880 : 
es i 
O7AC 1883 : COMPLETION CODES: 
O7AC 1884 ; 
Boar BBG _ 
O7AC 1889 : SIDE EFFECTS: 
O7AC 1888 : 
O7AC 1889 : NONE 
O7AC 1890 : 
aT tt 
O7AC 1898 FILSCHECKSUM: 
50 OOFF 8F 3¢ O7aC 189% ILScHE NoYes #FH2SW_CHECKSUM@-1,RO ;NO. OF WORDS TO CHECK 
52a 7 1896 we CLRL sR :INIT THE SUM 
52.81 Ag at 1898 |  ADDW  (R1)+,R2 sACCUMULATE THE SUM 
FA 50 OF 786 1899 SOBGTR RO,10$ SONCE FOR EACH WORD 
61 52 81 0789 1900 CMPW Re (R1) [CHECKSUM OK? 
01 if 78C 1901 BNEQ 208 ‘BRANCH IF NOT 
8 FE I ons, 
50 0808 8F 3C O7BF 1904 # | §$ MOVZWL #SS$_BADCHKSUM,RO sERROR STATUS IN RO 
04 07¢4 1905 RET 
C5 1906 
7¢ 190 
07¢5 1908 END 
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FILEREAD 
Symbol table 


PREFIX DIR_LIST 
PSL$S_CURMOD 
PSL$V~CURMOD 
DWRT 
READ_DIR_HEADER 
AD-DIR-LBN 
RTRVPTRBOF 
RTRVPTRLEN 


VAB eee 
SCRATCHSIZE 


ORESDIGITS 
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TMPRTRVLEN 
VBN 
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! Psect synopsis ! 
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PSECT name Allocation PSECT No. Attributes 


iat Poors + 8s GE GS BIE Gi Se AS ten Woeay one wna ees are 
YFILEREAD 000007¢5 ( 1989. 02 ¢ 2°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 


pwn mn anaes sea eaanee oan wan + 


; Performance indicators : 


Phase Page fauits CPU Time Elapsed Time 


Initialization 31 00:00: 8.93 8:00:10) «87 
—. processing 107 00:00:00. 8 00:98- 7 

s 1 630 00:00:26.3 0:01:19.14 
~F table sort 0 Bo 288: . 0:00:08.84 
Pass 2 394 83:8 8 39 B: 88: .05 
Symbol table output 36 +f $: 8.5? 0:00:00.51 
Peect synopsis output 1 0:00:00.04 00:00:00.24 
Cross-reference output 0 ee Se 00:00:00.00 
Assembler run totals 1201 00:00:37.11 00:02:04.02 


The working et 3 was 1950 pages. 

126068 bytes ( pages) of virtual memory were used to buffer the intermediate cod 

There were 90 wel of symbol table space allocated to hold 1556 non-local and 96 focal symbols. 
4660 source Lines were read in Pass 1, producing 18 object records in Pass 2. | 
154 pages of virtual memory were used to define 152 macros. 


Santen n ons aeenaw an ecsonwoae t 


Macro library name Macros defined 


"$255$DUA28: SYS.OBJJLIB.MLB; 1 g 
“$255$DUA28: SYSLIBJSTARLET. MLB; é 1 
TOTALS (all Libraries) 21 


1638 GETS were required to define 21 macros. 


MACRO/LIS=LIS$:F ILEREAD/OBJ=OBJ$:FILEREAD MASD$:CEMULAT.SRCIMISSING/UPDATE=(MASD$: CEMULAT..ENH MISSING) +MASDS:CSYS. SRCJFILEREAD/UPDAT | 


¢ 


There were no errors, warnings or information messages. 
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